给行绑定点击事件，如：
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址") '表头
.body.AddRow("技术部","张三","36","110","中国北京").Attribute = "onclick= 'tongji()'"
.body.AddRow("技术部","李四","38","110","中国上海").Attribute = "onclick= 'tongji()'"
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
End With
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2020/11/3 14:30:29编辑过]
加好友 
发短信
Post By：2020/6/14 20:53:00 [只看该作者]
