Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| Option Explicit On | |
| Option Strict On | |
| Imports System | |
| Imports System.Data | |
| Module TestVB | |
| Sub Main() | |
| DataTableEvents() | |
| Console.ReadLine() | |
| End Sub | |
| ' <Snippet1> | |
| Private Sub DataTableEvents() | |
| Dim table As DataTable = New DataTable("Customers") | |
| ' Add two columns, id and name. | |
| table.Columns.Add("id", Type.GetType("System.Int32")) | |
| table.Columns.Add("name", Type.GetType("System.String")) | |
| ' Set the primary key. | |
| table.Columns("id").Unique = True | |
| table.PrimaryKey = New DataColumn() {table.Columns("id")} | |
| ' Add a RowChanged event handler. | |
| AddHandler table.RowChanged, _ | |
| New DataRowChangeEventHandler(AddressOf Row_Changed) | |
| ' Add a RowChanging event handler. | |
| AddHandler table.RowChanging, _ | |
| New DataRowChangeEventHandler(AddressOf Row_Changing) | |
| ' Add a RowDeleted event handler. | |
| AddHandler table.RowDeleted, New _ | |
| DataRowChangeEventHandler(AddressOf Row_Deleted) | |
| ' Add a RowDeleting event handler. | |
| AddHandler table.RowDeleting, New _ | |
| DataRowChangeEventHandler(AddressOf Row_Deleting) | |
| ' Add a ColumnChanged event handler. | |
| AddHandler table.ColumnChanged, _ | |
| New DataColumnChangeEventHandler(AddressOf Column_Changed) | |
| ' Add a ColumnChanging event handler for the table. | |
| AddHandler table.ColumnChanging, New _ | |
| DataColumnChangeEventHandler(AddressOf Column_Changing) | |
| ' Add a TableNewRow event handler. | |
| AddHandler table.TableNewRow, New _ | |
| DataTableNewRowEventHandler(AddressOf Table_NewRow) | |
| ' Add a TableCleared event handler. | |
| AddHandler table.TableCleared, New _ | |
| DataTableClearEventHandler(AddressOf Table_Cleared) | |
| ' Add a TableClearing event handler. | |
| AddHandler table.TableClearing, New _ | |
| DataTableClearEventHandler(AddressOf Table_Clearing) | |
| ' Add a customer. | |
| Dim row As DataRow = table.NewRow() | |
| row("id") = 1 | |
| row("name") = "Customer1" | |
| table.Rows.Add(row) | |
| table.AcceptChanges() | |
| ' Change the customer name. | |
| table.Rows(0).Item("name") = "ChangedCustomer1" | |
| ' Delete the row. | |
| table.Rows(0).Delete() | |
| ' Clear the table. | |
| table.Clear() | |
| End Sub | |
| Private Sub Row_Changed(ByVal sender As Object, _ | |
| ByVal e As DataRowChangeEventArgs) | |
| Console.WriteLine("Row_Changed Event: name={0}; action={1}", _ | |
| e.Row("name"), e.Action) | |
| End Sub | |
| Private Sub Row_Changing(ByVal sender As Object, _ | |
| ByVal e As DataRowChangeEventArgs) | |
| Console.WriteLine("Row_Changing Event: name={0}; action={1}", _ | |
| e.Row("name"), e.Action) | |
| End Sub | |
| Private Sub Row_Deleted(ByVal sender As Object, _ | |
| ByVal e As DataRowChangeEventArgs) | |
| Console.WriteLine("Row_Deleted Event: name={0}; action={1}", _ | |
| e.Row("name", DataRowVersion.Original), e.Action) | |
| End Sub | |
| Private Sub Row_Deleting(ByVal sender As Object, _ | |
| ByVal e As DataRowChangeEventArgs) | |
| Console.WriteLine("Row_Deleting Event: name={0}; action={1}", _ | |
| e.Row("name"), e.Action) | |
| End Sub | |
| Private Sub Column_Changed(ByVal sender As Object, _ | |
| ByVal e As DataColumnChangeEventArgs) | |
| Console.WriteLine("Column_Changed Event: ColumnName={0}; RowState={1}", _ | |
| e.Column.ColumnName, e.Row.RowState) | |
| End Sub | |
| Private Sub Column_Changing(ByVal sender As Object, _ | |
| ByVal e As DataColumnChangeEventArgs) | |
| Console.WriteLine("Column_Changing Event: ColumnName={0}; RowState={1}", _ | |
| e.Column.ColumnName, e.Row.RowState) | |
| End Sub | |
| Private Sub Table_NewRow(ByVal sender As Object, _ | |
| ByVal e As DataTableNewRowEventArgs) | |
| Console.WriteLine("Table_NewRow Event: RowState={0}", _ | |
| e.Row.RowState.ToString()) | |
| End Sub | |
| Private Sub Table_Cleared(ByVal sender As Object, _ | |
| ByVal e As DataTableClearEventArgs) | |
| Console.WriteLine("Table_Cleared Event: TableName={0}; Rows={1}", _ | |
| e.TableName, e.Table.Rows.Count.ToString()) | |
| End Sub | |
| Private Sub Table_Clearing(ByVal sender As Object, _ | |
| ByVal e As DataTableClearEventArgs) | |
| Console.WriteLine("Table_Clearing Event: TableName={0}; Rows={1}", _ | |
| e.TableName, e.Table.Rows.Count.ToString()) | |
| End Sub | |
| ' </Snippet1> | |
| End Module |