以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复选列表项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178001)
--  作者：qazlinle6
--  发布时间：2022/6/14 15:19:00
--  复选列表项
   With wb.AddCheckGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer", True) \'默认勾选
            .Add("bw2","Google Chorme")
            .Add("bm3","FireFox")
    .Add("bm4","Safari").Enabled = False \'此项不可选
        End With


列多值为1,2,3,4,5,6
列内容为1,2,4,5
想要像复选列表项这样显示什么弄
--  作者：有点蓝
--  发布时间：2022/6/14 15:43:00
--  
dim ss() as string = {"1","2","3","4","5"}
dim s2() as string = tables().current("某列").split(",")

  With wb.AddCheckGroup("form1","rdg1","浏览器")
for i as integer = 0 to ss.length - 1
if array.indexof(s2,ss(i)) > -1 then
            .Add("bw" & i,ss(i), True) \'默认勾选
else
            .Add("bw" & i,ss(i),) \'默认勾选
end if
next
        End With
--  作者：qazlinle6
--  发布时间：2022/6/14 17:11:00
--  
 Dim pp As String
                nms = New String() {"bw"} \'将nms重新定义为品牌数组 
                For Each nm As String In nms
                    If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then \'不能省略Trim 
                        pp = pp & nm & ","
                    End If
                Next
                If pp > "" Then
                    dr("用户分组") = pp.Trim(",")
                End If

保存不了 
--  作者：有点蓝
--  发布时间：2022/6/14 17:25:00
--  
For Each key As String In e.PostValues.Keys
  msgbox(key & "," & e.PostValues(key))
Next
--  作者：qazlinle6
--  发布时间：2022/6/14 17:27:00
--  
？？？？？？
--  作者：有点蓝
--  发布时间：2022/6/14 17:32:00
--  
调试看都接收到什么数据
--  作者：qazlinle6
--  发布时间：2022/6/14 17:36:00
--  
  Dim ss() As String = {"管理", "开支", "经理", "员工", "店长"}
                    Dim s2() As String = dr1("用户分组").split(",")
                    
                    With wb.AddCheckGroup("form1", "rdg1", "浏览器")
                        For i As Integer = 0 To ss.length - 1
                            If array.indexof(s2, ss(i)) > -1 Then
                                .Add("bw" & i, ss(i), True) \'默认勾选
                            Else
                                .Add("bw" & i, ss(i), ) \'默认勾选
                            End If
                        Next
                    End With
提示
bw0，on
bw1，on
bw2，on


[此贴子已经被作者于2022/6/14 18:31:28编辑过]
--  作者：有点蓝
--  发布时间：2022/6/14 20:13:00
--  
Dim ss() As String = {"管理", "开支", "经理", "员工", "店长"}
Dim pp As String
For Each key As String In e.PostValues.Keys
if key like "bw*"
  pp = pp & "," & ss(cint(pp.replace("bw","")))
end if
Next
msgbox(pp)
--  作者：qazlinle6
--  发布时间：2022/6/14 23:06:00
--  
网页显示404
--  作者：有点蓝
--  发布时间：2022/6/14 23:17:00
--  
请上传实例说明