Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
wb.AppendHTML("<style>#table1 tr{height:50px}</style>",True)
wb.AppendHTML("<script src='./lib/test3.js'></script>",True)
With wb.AddTable("","Table1")
.head.AddRow("","部门","姓名","年龄","电话","地址") '表头
.body.AddRow("<input type='checkbox' id='1'>","技术部","张三","36","110","中国北京") '数据
.body.AddRow("<input type='checkbox' id='2'>","技术部","李四","38","110","中国上海")
.body.AddRow("<input type='checkbox' id='3'>","技术部","王五","39","110","中国深圳")
.body.AddRow("<input type='checkbox' id='4'>","生产部","赵六","39","110","中国深圳")
.body.AddRow("<input type='checkbox' id='5'>","生产部","刘七","39","110","中国深圳")
End With
With wb.AddButtonGroup("","btngrp1",False)
With .Add("btn3", "查看", "button") '自定义按钮
.Attribute = """
End With
End With
e.WriteString(wb.Build)
End Select
test3.js
Function showid() {
var eles = document.querySelectorAll("#table1 input");
var s = "";
for (var i = 0, k = eles.length; i < k; i++) {
if (eles[i].checked) {
s = s + ',' + eles[i].id;
}
}
alert(s);
}