- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 行列转换,如何实现? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136714)
-- 发布时间：2019/6/19 16:55:00
-- 行列转换,如何实现?
如附件所示,如何实现?
此主题相关图片如下：行列互转.png
-- 发布时间：2019/6/19 17:00:00
--
http://www.foxtable.com/webhelp/scr/2965.htm 用帮助中介绍的方法,达不到想要的结果.
-- 发布时间：2019/6/19 17:44:00
--
参考代码
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("name", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("id")
dtb.AddDef("列" & v, Gettype(String), 32, "", v)
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("name")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("name") = v
For Each dr2 As DataRow In DataTables("表A").Select("name = \'" & v & "\'")
dr1("列" & dr2("id")) = dr2("value")
Next
Next
MainTable = Tables("表B")