- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- weui ft扩展的表格如何设置滚动条 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149960)
-- 发布时间：2020/5/16 17:16:00
-- weui ft扩展的表格如何设置滚动条
weui ft扩展的表格如何设置滚动条和列宽，列数多了很拥挤！
此主题相关图片如下：微信图片_20200516171531.jpg
[此贴子已经被作者于2020/5/16 21:14:14编辑过]
-- 发布时间：2020/5/16 17:18: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("","</div>")
e.WriteString(wb.Build)
End Select
-- 发布时间：2020/5/16 21:25:00
--
加了没有效果，
\'提取此页数据
‘*******************************
’*******************************
\'合成网页
wb.InsertHTML("","<div id=\'div1\' style=\'overflow-x:auto;width:100%\'>")
With wb.AddTable("","Table1")
.Cr eateFromDataTable(c md.ExecuteReader)
.ColWidth = "12px,100px,100px,100px,120px,100px,100px,120px,120px,120px,120px,120px,120px,120px,120px,120px" \'设置列宽
.Highlight = 0 \'高亮显示
\' .Alternate = 2 \'每两行显示一个不同背景颜色的行
.RowHead = 1
End With
wb.InsertHTML("","</div>")
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一页","","LuDanList.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","LuDanList.htm?page=" & page + 1)
End If
If flt = "" Then
.Add("btn1", "筛选", "","LuDanFilter.htm").kind = 1
Else
.Add("btn1", "取消筛选", "","LuDanList.htm?unfilter=true").kind = 1
End If
End With
End Select
e.WriteString(wb.Build)
-- 发布时间：2020/5/16 21:58:00
--
wb.InsertHTML("","<div id=\'div1\' style=\'overflow-x:auto;width:200%\'>")，然后横屏才有效果
-- 发布时间：2020/5/17 18:49:00
--
我测试可以，上传实例测试