- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]狐表TABLE显示方式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85778)
-- 发布时间：2016/6/2 10:49:00
-- [求助]狐表TABLE显示方式
狐表TABLE显示方式目前是横排的，
此主题相关图片如下：1.png
能否改成竖排的？
此主题相关图片如下：2.png
-- 发布时间：2016/6/2 10:59:00
--
写代码转换
http://www.foxtable.com/help/topics/2965.htm
-- 发布时间：2016/6/2 11:00:00
--
我说的是表头，不是内容！
-- 发布时间：2016/6/2 11:12:00
--
mark 水平表
Dim t As Table = Tables("表A")
Dim dtb As new DataTableBuilder("水平表")
dtb.AddDef("列名", Gettype(String))
For i As Integer = 0 To t.rows.count-1
dtb.adddef("列" & i, Gettype(String))
Next
dtb.Build
For Each c As Col In t.cols
Dim nr As Row = Tables("水平表").addnew
nr("列名") = c.name
For Each r As Row In t.rows
nr("列" & r.index) = r(c.name)
Next
Next