Private Function RotateDataTable(ByVal dt As DataTable) As DataTable Dim dtNew As New DataTable 'for each row, create a column For i As Integer = 0 To dt.Rows.Count() - 1 Dim dc As New DataColumn(dt.Rows(i)(0)) dtNew.Columns.Add(dc) Next 'for each column, create a row For j As Integer = 1 To dt.Columns.Count() - 1 Dim dr As... Continue Reading →