主题：[求助]表的转换

类似代码

For Each dr As DataRow In DataTables("表A").DataRows
    For Each dc As DataCol In DataTables("表A").DataCols
        Dim ndr As DataRow = DataTables("表b").AddNew
        ndr("第一列") = dr("第一列")
        ndr("第二列") = dc.Name
        ndr("第三列") = dr(dc.Name)
    Next
Next