以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 check weui 表格 多选框操作的方式 以后如何进行批量操作  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192528)
--  作者：夜点蚊香
--  发布时间：2024/6/30 10:31:00
--  求助 check weui 表格 多选框操作的方式 以后如何进行批量操作
        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编辑过]
--  作者：有点蓝
--  发布时间：2024/6/30 22:20:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=186835