- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何固定确定按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131752)
-- 发布时间：2019/3/5 23:21:00
-- [求助]如何固定确定按钮
现在确定按钮是上下滑动的，能否实现把确定按钮固定到最下面，无论怎么滑动网页，确定按钮在下面一动不动
此主题相关图片如下：微信截图_20190305231555.png
-- 发布时间：2019/3/6 9:09:00
--
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址") \'表头
.body.AddRow("技术部","张三","36","110","中国北京") \'数据
.body.AddRow("技术部","李四","38","110","中国上海")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
End With
wb.InsertHTML("<div style=\'height:100px\'></div>")
wb.AddPage("","page1").Attribute = "style=\'position: fixed;bottom: 0;right: 0;left: 0\'" \'增加两个page
With wb.AddButtonGroup("page1","btg2", False) \'生成上一页和下一页按钮
.Add("btnPrev", "上一页","button").Attribute="onclick=""show(\'dlg1\')"""
.Add("btnNext", "下一页","","List.htm")
End With
With wb.AddDialog("","dlg1", "删除确认","您确定要删除当前记录吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定")
End With
e.WriteString(wb.Build)
End Select