主题：移动版由Table自动生成的表如果想带链接怎么办

只能手工编码生成吗？

用手工生成吧，也差不多的。

 

http://www.foxtable.com/mobilehelp/scr/0072.htm

 

因为是多行表头，写代码好麻烦。另外请教老师：

还有怎么获取table的所有列名呢？

那就不要带链接呗，用菜单处理

 

http://www.foxtable.com/mobilehelp/scr/0117.htm

 

不然，就只能是用手工编码的方式，获取列名，参考 http://www.foxtable.com/webhelp/scr/0561.htm

 

如何把获取到的集合转化成自动编码需要的数组和表头字符串呢Dim nms() As String = {"产品","东部_一季度","东部_二季度","东部_三季度","东部_四季度","南部_一季度","南部_二季度","南部_三季度","南部_四季度"} .Head.AddRow("产品","东部","东部","东部","东部","西部","西部","西部","西部") '第一层标题 .Head.AddRow("产品","一季度","二季度","三季度","四季度","一季度","二季度","三季度","四季度") '第二层标题.

参考代码

 

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)

谢谢老师，这样表头是行了，可是表体需要一个所有列名的数组该怎么写呢

 

照抄帮助文档之前代码即可，看懂7楼代码，你肯定能编写代码。

此主题相关图片如下：5fae04f1-7e8e-40c9-994b-aae50d6245df.png

谢谢老师，已经完美解决了