- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- web表头怎么固定不动 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149835)
-- 发布时间：2020/5/13 14:02:00
-- web表头怎么固定不动
老师，请问如图表头能不能做到固定不动 滑动的时候只有内容滑动
此主题相关图片如下：企业微信截图_20200513135643.png
代码：
With wb.AddTable("page1","Table2")
.head.AddRow("考勤部门","在册","实到","请假","旷工","填写时间") \'表头
.Highlight = -1
For Each r As DataRow In dt.DataRows
Dim jo As New JObject
Dim aa As String = r("单据编号").Tostring
With .body.AddRow() \'数据
.AddCell(r("车间名称") & "<br>" & r("姓名"),"style= \'height:40px\' & aa & "\')""")
.AddCell(r("在册人数"),"style= \'height:40px\' & aa & "\')""")
.AddCell(r("出勤人数"),"style= \'height:40px\' & aa & "\')""")
.AddCell(r("请假人数"),"style= \'height:40px\' & aa & "\')""")
.AddCell(r("旷工人数"),"style= \'height:40px\' & aa & "\')""")
If r.IsNull("填写时间") Then
.AddCell("未填写","style= \'height:40px;background-color: #ff7575\' & aa & "\')""")
Else
.AddCell(Format( r("填写时间"),"hh:mm"),"style= \'height:40px\' & aa & "\')""")
End If
End With
Next
-- 发布时间：2020/5/13 14:09:00
--
weui没有办法控制，如果要做需要使用第三方的表格控件