以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于手机网页的表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148511)

--  作者:czy66ds
--  发布时间:2020/4/9 10:54:00
--  关于手机网页的表
请问:
使用代码
With wb.AddTable("","Table1")
        .CreateFromDataTable(dt1)
    End With
生成的网页表格是否可以:
1、设置冻结列
2、设置列宽

--  作者:有点蓝
--  发布时间:2020/4/9 11:01:00
--  
不支持冻结列
设置列宽参考:http://www.foxtable.com/mobilehelp/topics/0071.htm



--  作者:czy66ds
--  发布时间:2020/4/9 12:50:00
--  
测试证明,使用
With wb.AddTable("","Table1")
        .CreateFromDataTable(dt1)
    End With
方式建的表,代码.ColWidth = "12px,,120px" \'设置列宽
不起作用。
--  作者:有点蓝
--  发布时间:2020/4/9 13:38:00
--  
我测试没有问题


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:czy66ds
--  发布时间:2020/4/9 14:17:00
--  
我用的表
dt1是用SqlComment命令生成的临时表,难道和这个有关?

--  作者:有点蓝
--  发布时间:2020/4/9 14:22:00
--  
测试一样没有问题

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        Dim val As Integer
        Dim cmd As New SQLCommand
        cmd.CommandText = "Select * From {表B}"
        Dim dt As DataTable  = cmd.ExecuteReader()
        With wb.AddTable("","Table1")
            .ColWidth = "12px,,120px"
            .CreateFromDataTable(dt)
        End With
        e.WriteString(wb.Build)
End Select