- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 列数据转换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187549)
-- 发布时间：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 |
-- 发布时间：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")
标记的哪里不对吗？报错了
-- 发布时间：2023/7/25 19:30:00
--
知道原因了，需要用cl.name