- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动版由Table自动生成的表如果想带链接怎么办 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114587)
-- 发布时间：2018/2/10 11:01:00
-- 移动版由Table自动生成的表如果想带链接怎么办
只能手工编码生成吗？
-- 发布时间：2018/2/10 11:03:00
--
用手工生成吧，也差不多的。
http://www.foxtable.com/mobilehelp/scr/0072.htm
-- 发布时间：2018/2/10 11:09:00
--
因为是多行表头，写代码好麻烦。另外请教老师：
-- 发布时间：2018/2/10 11:09:00
--
还有怎么获取table的所有列名呢？
-- 发布时间：2018/2/10 11:14:00
--
那就不要带链接呗，用菜单处理
http://www.foxtable.com/mobilehelp/scr/0117.htm
不然，就只能是用手工编码的方式，获取列名，参考 http://www.foxtable.com/webhelp/scr/0561.htm
-- 发布时间：2018/2/10 13:10:00
--
如何把获取到的集合转化成自动编码需要的数组和表头字符串呢Dim nms() As String = {"产品","东部_一季度","东部_二季度","东部_三季度","东部_四季度","南部_一季度","南部_二季度","南部_三季度","南部_四季度"} .Head.AddRow("产品","东部","东部","东部","东部","西部","西部","西部","西部") \'第一层标题 .Head.AddRow("产品","一季度","二季度","三季度","四季度","一季度","二季度","三季度","四季度") \'第二层标题.
-- 发布时间：2018/2/10 16:43:00
--
参考代码
Dim wb As New WeUI
Dim t = wb.AddTable("","Table1")
Dim r1 = t.Head.AddRow
Dim r2 = t.Head.AddRow
For Each c As Col In Tables("表A").cols
Dim ary() As String = c.Caption.Split("_")
If ary.length = 1 Then
r1.addcell(ary(0))
r2.addcell(ary(0))
Else
r1.addcell(ary(0))
r2.addcell(ary(1))
End If
Next
msgbox(wb.Build)
-- 发布时间：2018/2/11 23:05:00
--
谢谢老师，这样表头是行了，可是表体需要一个所有列名的数组该怎么写呢
-- 发布时间：2018/2/12 9:33:00
--
以下是引用liufucan在2018/2/11 23:05:00的发言：
谢谢老师，这样表头是行了，可是表体需要一个所有列名的数组该怎么写呢
谢谢老师，这样表头是行了，可是表体需要一个所有列名的数组该怎么写呢
照抄帮助文档之前代码即可，看懂7楼代码，你肯定能编写代码。
-- 发布时间：2018/2/14 8:36:00
--
此主题相关图片如下：5fae04f1-7e8e-40c9-994b-aae50d6245df.png
谢谢老师，已经完美解决了