以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列数据转换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187549)
--  作者：ycs5801
--  发布时间：2023/7/25 16:13:00
--  列数据转换
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

想把表a转换成表b样式的，怎样设计？算法是把表a的列名作为表b第一列的数值。
--  作者：有点蓝
--  发布时间：2023/7/25 16:25:00
--  
参考：http://www.foxtable.com/webhelp/topics/2965.htm
--  作者：有点蓝
--  发布时间：2023/7/25 16:28:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目24.zip
--  作者：ycs5801
--  发布时间：2023/7/25 19:13:00
--  

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")

 

标记的哪里不对吗？报错了
--  作者：ycs5801
--  发布时间：2023/7/25 19:30:00
--  
知道原因了，需要用cl.name