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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部