Public Class MyExpensesInputForm Dim TempCreditorsViewSource As System.Windows.Data.CollectionViewSource Dim MyExpenses_beDataSet As MyExpenses5.MyExpenses_beDataSet Dim MyExpenses_beDataSetTempCreditorsTableAdapter As MyExpenses5.MyExpenses_beDataSetTableAdapters.TempCreditorsTableAdapter Public Sub MyExpensesInput_Loaded(sender As Object, e As RoutedEventArgs) Handles MyBase.Loaded MyExpenses_beDataSet = CType(Me.FindResource("MyExpenses_beDataSet"),MyExpenses5.MyExpenses_beDataSet) 'Load data into the table TempCreditors. You can modify this code as needed. MyExpenses_beDataSetTempCreditorsTableAdapter = New MyExpenses5.MyExpenses_beDataSetTableAdapters.TempCreditorsTableAdapter() MyExpenses_beDataSetTempCreditorsTableAdapter.fill(MyExpenses_beDataSet.TempCreditors) TempCreditorsViewSource = CType(Me.FindResource("TempCreditorsViewSource"), System.Windows.Data.CollectionViewSource) TempCreditorsViewSource.View.MoveCurrentToFirst MyExpenses_beDataSetTempCreditorsTableAdapter.Update(MyExpenses_beDataSet.TempCreditors) End Sub Private Sub btnClose_Click(sender As Object, e As RoutedEventArgs) Handles btnClose.Click Dim MyExpenses_beDataSet As MyExpenses5.MyExpenses_beDataSet = CType(Me.FindResource("MyExpenses_beDataSet"), MyExpenses5.MyExpenses_beDataSet) SaveAll Me.Close() 'close window Dim curApp = Application.Current 'get current application curApp.Shutdown() 'close current application End Sub Private Sub SaveAll MyExpenses_beDataSetTempCreditorsTableAdapter.Update(MyExpenses_beDataSet.TempCreditors) End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)