Foxtable(狐表)用户栏目专家坐堂 → 移动端的表格有没办法实现多选审核?


  共有2558人关注过本帖树形打印复制链接

主题:移动端的表格有没办法实现多选审核?

帅哥哟,离线,有人找我吗?
chen37280600
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:7953 威望:0 精华:4 注册:2017/12/31 14:53:00
移动端的表格有没办法实现多选审核?  发帖心情 Post By:2018/3/15 13:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 

例如上面这个表格,有没有办法前面多个多选框,然后我下面有个审核按钮,把所有选中的行的某一字段更新了,实现批量审核的功能?

我目前能想到的就是把每一行用复选列表行展示出来,然后提交,实现手机端批量审核,有更好的方法吗?


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/3/15 13:42:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
bobolan521
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:7362 威望:0 精华:1 注册:2013/11/26 7:49:00
  发帖心情 Post By:2018/3/16 13:43:00 [只看该作者]

good

 回到顶部