DataTable Find Delete

Module Module1

    Sub Main()

        DataTableRowDeleted()
        LoadTableAgain()
        Console.ReadKey()

    End Sub

    Private customerTable As System.Data.DataTable = New System.Data.DataTable("Customers")

    Private Sub DataTableRowDeleted()
        'Add Column
        customerTable.Columns.Add("id", GetType(Integer))
        customerTable.Columns.Add("name", GetType(String))
        customerTable.Columns.Add("address", GetType(String))

        'Set primaryKey
        customerTable.Columns("id").Unique = True
        customerTable.PrimaryKey = New DataColumn() {customerTable.Columns("id")}

        'add event handler
        AddHandler customerTable.RowDeleted, AddressOf Row_Deleted

        'Add ten rows
        For id As Integer = 0 To 9
            customerTable.Rows.Add(New Object() {id, String.Format("customer{0}", id), String.Format("address{0}", id)})
            Console.WriteLine(String.Format("{0}" + vbTab + "{1}" + vbTab + "{2}", customerTable.Rows(id).Item(0), customerTable.Rows(id).Item(1), customerTable.Rows(id).Item(2)))
        Next

        'Accept changes
        customerTable.AcceptChanges()

        Console.WriteLine()

        'Delete data index of row = 1
        customerTable.Rows.Find(customerTable.Rows(1).Item(0)).Delete()

        Console.WriteLine()

        'Accept changes
        customerTable.AcceptChanges()

        'Remove event handler
        RemoveHandler customerTable.RowDeleted, AddressOf Row_Deleted

    End Sub

    Private Sub LoadTableAgain()
        'Load table again
        For id As Integer = 0 To customerTable.Rows.Count - 1
            Console.WriteLine(String.Format("{0}" + vbTab + "{1}" + vbTab + "{2}", customerTable.Rows(id).Item(0), customerTable.Rows(id).Item(1), customerTable.Rows(id).Item(2)))
        Next

    End Sub

    Private Sub Row_Deleted(sender As Object, e As DataRowChangeEventArgs)
        Console.WriteLine("Row deleted event: name={0}; action={1}", e.Row("name", DataRowVersion.Original), e.Action)
    End Sub

End Module