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