I just updated the utility to include an option to create one to four events (common events used).
Example that created events and one column expression
Code:
Public Module DataTable_GeneratedCode
Public Sub Generated()
Dim dt As New DataTable With {.TableName = "MyTable"}
dt.Columns.Add(New DataColumn With {.ColumnName = "Identifier", .DataType = GetType(Int32),
.AutoIncrement = True, .AutoIncrementSeed = 1})
dt.Columns.Add(New DataColumn With {.ColumnName = "FirstName", .DataType = GetType(String)})
dt.Columns.Add(New DataColumn With {.ColumnName = "LastName", .DataType = GetType(String)})
dt.Columns.Add(New DataColumn With {.ColumnName = "FullName", .DataType = GetType(String),
.Expression = "FirstName + ' ' + LastName"})
dt.Columns.Add(New DataColumn With {.ColumnName = "Country", .DataType = GetType(String)})
AddHandler dt.ColumnChanged, AddressOf dt_ColumnChanged
AddHandler dt.ColumnChanging, AddressOf dt_ColumnChanging
AddHandler dt.RowChanging, AddressOf dt_RowChanging
End Sub
Private Sub dt_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs)
End Sub
Private Sub dt_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs)
End Sub
Private Sub dt_RowChanging(sender As Object, e As DataRowChangeEventArgs)
End Sub
End Module