08-10-20 01:49 PM
09-10-20 06:41 PM
' Ensure we have the proper number of columns.
If Collection_In.Columns.Count <> 2 Then
Throw New Exception("Collection_In must have exactly two columns")
End If
' Add the column names to the output collection.
For Each Row As DataRow In Collection_In.Rows
Collection_Out.Columns.Add(Row(0), Collection_In.Columns(0).DataType)
Next
' Add the values to the output collection.
Dim NewRow As DataRow = Collection_Out.NewRow()
Dim Count As Integer = 0
For Each Row As DataRow In Collection_In.Rows
NewRow(Count) = Row(1)
Count += 1
Next
Collection_Out.Rows.Add(NewRow)
10-10-20 06:06 PM
12-10-20 09:42 PM
13-10-20 07:50 AM
16-10-20 06:10 AM
18-10-20 11:44 AM
To transpose the collection. Follow the below steps.
1) Create a single row collection to store output value's.
2) Loop through the input collection & use "Append Field" action to add new column name & write respective value in output collection.
2) Pass the header name (Coll1.Name) & value (Coll1.Value) references as input parameters for "Append Field " action.