With wb.AddTable("","Table1")
.head.AddRow("勾选","姓名","年龄","电话","地址")
With .body.AddRow()
.AddCell("<input type='checkbox'></input>")
.AddCell("张三")
求助 比如说删除订单 选择 check box以后
With wb.AddButtonGroup("","btg2", False) '生成操作按钮
.Add("btnDelete",
"删除订单").Attribute = ""
End With
js代码
function del(){
if(table1.primarykey){
location="delete.htm?page=" + table1.pagenumber + "&key=" +
table1.primarykey;
}
}
Dim e As RequestEventArgs
= args(0)
Dim wb As
New weui
Dim PageURL = "List.htm?page=" & e.GetValues("page")
'合成当前页面链接
DataTables("订单").SQLDeleteFor("[_Identify]
=" & e.GetValues("key")) '根据主键删除行
'显示删除完成提示,2秒后返回原来的页面
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "订单已删除",0).Visible= True
e.WriteString(wb.Build)
[此贴子已经被作者于2024/6/30 11:21:01编辑过]