主题：列数据转换

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

点击浏览该文件:管理项目2.foxdb

想把表a转换成表b样式的，怎样设计？算法是把表a的列名作为表b第一列的数值。

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("列名", GetType(String), 32)
dtb.AddDef("数值", GetType(String), 32)

dtb.Build()
For Each cl As Col In Tables("表A").Cols '’cl现在列名是a
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2 IsNot Nothing And dr2(cl) <> "" Then
            Dim dr1 As DataRow = DataTables("表B").AddNew()
            dr1("列名") = cl
            dr1("数值") = dr2(cl)
        End If
    Next
Next
MainTable = Tables("表B")

 

标记的哪里不对吗？报错了

知道原因了，需要用cl.name