主题：[求助]列数值转到行数值

Dim strs As List(Of String)
strs  =DataTables("表A").GetValues("第一列","第一列 is not null")
Dim Values() As String

Dim dr As DataRow
For Each s As String In strs

    Values = DataTables("表A").GetComboListString("第二列","第一列 = '" & s & "'").Split("|")
   
    dr = DataTables("表B").AddNew()
    dr("第一列") = s
   
    For i As Integer = 0 To Values.Length - 1
        dr(Tables("表B").Cols(i+1).Name) = Values(i)
    Next
   
Next