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

参考代码

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