以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动开发：数据表比较长，可以表格区域 左右滑动吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146386)
--  作者：playmal
--  发布时间：2020/2/22 16:42:00
--  移动开发：数据表比较长，可以表格区域 左右滑动吗？
如题
--  作者：有点蓝
--  发布时间：2020/2/22 17:03:00
--  
11
[此贴子已经被作者于2020/2/23 21:52:42编辑过]
--  作者：有点蓝
--  发布时间：2020/2/23 21:53: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