Private Function TransposeTable(ByVal inputTable As DataTable) As DataTable
        Dim outputTable As New DataTable()
 
        ' Add columns by looping rows
 
        ' Header row's first column is same as in inputTable
        outputTable.Columns.Add(inputTable.Columns(0).ColumnName.ToString())
 
        ' Header row's second column onwards, 'inputTable's first column taken
        For Each inRow As DataRow In inputTable.Rows
            Dim newColName As String = inRow(0).ToString()
            outputTable.Columns.Add(newColName)
        Next
 
        ' Add rows by looping columns        
        For rCount As Integer = 1 To inputTable.Columns.Count - 1
            Dim newRow As DataRow = outputTable.NewRow()
 
            ' First column is inputTable's Header row's second column
            newRow(0) = inputTable.Columns(rCount).ColumnName.ToString()
            For cCount As Integer = 0 To inputTable.Rows.Count - 1
                Dim colValue As String = inputTable.Rows(cCount)( _
                  rCount).ToString()
                newRow(cCount + 1) = colValue
            Next
            outputTable.Rows.Add(newRow)
        Next
 
        Return outputTable
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist