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

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

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

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

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

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

参考代码

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楼代码，你肯定能编写代码。

参考代码

Select Case e.Path
    Case "test.htm",""
        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
        For Each r As Row In Tables("表A").rows
            Dim nr = t.Body.AddRow()
            nr.AddCell("<a href='http://www.baidu.com'>" & r("第二列") & "</a>")
            For Each c As Col In r.Table.cols
                nr.AddCell(r(c.name))
            Next
        Next
        e.WriteString(wb.Build)
End Select