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

 请教如何实现列数值转到行数值，即表A实际表B效果

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品进度表.table

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

经测试，问题已解决，太感谢了！