- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动端的表格有没办法实现多选审核？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115833)
-- 发布时间：2018/3/15 13:41:00
-- 移动端的表格有没办法实现多选审核？
此主题相关图片如下：1.jpg
例如上面这个表格，有没有办法前面多个多选框，然后我下面有个审核按钮，把所有选中的行的某一字段更新了，实现批量审核的功能？
我目前能想到的就是把每一行用复选列表行展示出来，然后提交，实现手机端批量审核，有更好的方法吗？
此主题相关图片如下：2.jpg
[此贴子已经被作者于2018/3/15 13:42:57编辑过]
-- 发布时间：2018/3/15 14:28:00
--
Select Case e.Path
Case "","test.htm"
Dim wb As New WeUI
wb.AddForm("","form1","abc.htm")
With wb.AddTable("form1","Table1")
.Alternate = 3
Dim nms() As String = {"","第一列", "第二列","第三列"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("表A").Select("")
Dim nr = .Body.AddRow("<input Type=\'checkbox\' name=\'idx_" & r("_Identify") & "\' value=\'" & r("_identify") & "\' />")
nr.addcell(r("第一列"))
nr.addcell(r("第二列"))
nr.addcell(r("第三列"))
Next
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Case "abc.htm"
Dim sb As New StringBuilder
sb.AppendLine("<meta name=\'viewport\' c>")
sb.AppendLine("接收到的数据有:<br/><br/>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
Next
e.WriteString(sb.ToString)
End Select
-- 发布时间：2018/3/16 13:43:00
--
good