主题：[求助]狐表TABLE显示方式

 写代码转换

http://www.foxtable.com/help/topics/2965.htm

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