06-04-20 05:18 PM
15-04-20 05:28 PM
21-04-20 09:47 PM
For Each Row As DataRow In Column_Names.Rows
If Not Collection_In.Columns.Contains(Row(0)) Then
Throw New Exception("Field '" & Row(0) & "' does not exist in the collection.")
Else
Collection_Out.Columns.Add(Collection_In.Columns(Row(0)).ColumnName, Collection_In.Columns(Row(0)).DataType)
End If
Next
For Each Row As DataRow In Collection_In.Rows
Dim NewRow As DataRow = Collection_Out.NewRow
For Each Column As DataColumn In Collection_Out.Columns
NewRow(Column.ColumnName) = Row(Column.ColumnName)
Next
Collection_Out.Rows.Add(NewRow)
Next
22-04-20 07:10 AM
22-04-20 02:00 PM
24-04-20 06:52 AM
09-03-21 12:24 PM
29-01-22 05:20 PM
31-01-22 09:01 AM