以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]webui的表格宽度问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134745)
--  作者：nuhou
--  发布时间：2019/5/5 20:32:00
--  [求助]webui的表格宽度问题
用的webui生成的表格，好像不管多少列，手机上都会限制整体表格的宽度正好等于屏幕的宽度。

如果表格的列比较多，某列的内容多一点的话，那一行的行高就被拉的很高，或者在低分辨率的手机上显示效果很差。

能不能设置好每列固定的宽度，如果整体超过了手机的宽度，则可以左右滚动条，使得每行的行高不会拉的过高
--  作者：有点蓝
--  发布时间：2019/5/5 21:15:00
--  
参考：

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.InsertHTML("","<div id=\'div1\' style=\'overflow-x:auto;width:100%\'>")
        With wb.AddTable("","Table1")
            .Attribute = "style=\'width:1000px\'"
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京中国北京中国北京中国北京中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("form2","</div>")
        e.WriteString(wb.Build)
End Select