AddSelect如何实现多选呢？当前已经解决了值的获取及单选，怎么实现多选呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

当前效果图：（点击备注可以弹出选择项，当前可以实现单选，求助什么实现多选呢？）

此主题相关图片如下：111.png

此主题相关图片如下：222.png

具体代码如下（红色部分如何修正为可以多选呢？多个值选择后要能够达到这个格式：院领导，第一支部，党员）

Dim wb As New weui

Select Case e.Path

Case "addnewtxl.htm"

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","addnewtxl.htm")

With wb.AddInputGroup("form1","ipg1","干警信息")

.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题

.AddInput("电话","电话","number")

.AddInput("电子邮件","电子邮件","text")

Dim filter As String = "表名 = '干警信息' and 列名 = '备注' and 停用 = false"

Dim fdr As DataRow = DataTables("列项设置").Find(filter)

If fdr IsNot Nothing Then

Dim abc As String=fdr("下拉选项").replace(",", "|")

.AddSelect("备注","备注",abc)

End If

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build)

Else

Dim nms() As String = {"姓名","电话"} '不能为空的列名数组

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页

With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")

.icon = "Warn" '改变图标

.AddButton("btn1","返回").Attribute = ""

End With

e.WriteString(wb.Build)

Return '必须返回

End If

nms = New String() {"姓名","电话"} '重新定义了nms数组,增加了两列.

Dim dr As DataRow = DataTables("干警信息").AddNew()

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

.AddButton("btn1","继续增加","addnewtxl.htm")

End With

e.WriteString(wb.Build)

End If

End Select

[此贴子已经被作者于2019/3/17 17:18:19编辑过]

AddSelect只能实现单选，

可以用复选列表项实现多选

Select Case e.Path

Case "test.htm"

Dim wb As New weui

wb.AddForm("","form1","test.htm")

With wb.AddCheckGroup("form1","rdg1","浏览器")

.Add("bw1","Intenet Explorer", True) '默认勾选

.Add("bw2","Google Chorme")

.Add("bm3","FireFox")

.Add("bm4","Safari").Enabled = False '此项不可选

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build) '生成网页

End Select

按照你的思路效果如下

此主题相关图片如下：4.png

有没有办法实现下面的效果呢

此主题相关图片如下：5.png

参考代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddInputGroup("","ipg1","干警信息")
            .AddInput("姓名","姓名","Text").Attribute = "onclick=""show('dlg2')"""
        End With
        Dim wb2 As New weui
        wb2.AddForm("","form2","test.htm")
        Dim ary() As String = {"数据1", "数据2", "数据3"}
        With wb2.AddCheckGroup("form2","rdg1","浏览器")
            For i As Integer = 0 To ary.length-1
                .Add("bm" & i, ary(i))
            Next
        End With
        With wb.AddDialog("","dlg2", "请选择",wb2.Build)
            .AddButton("btnCancel","取消").Kind = 1
            Dim str As String = ""
            str &= "var s = '';"
            For i As Integer = 0 To ary.length-1
                str &= "var c" & i & " = document.getElementById('bm" & i & "').checked;"
                str &= "if(c" & i & "){s = s + '," & ary(i) & "'};"
            Next
            'str &= "alert(s.substring(1));"
            str &= "姓名.value = s.substring(1)"
            'msgbox(str)
            .AddButton("btnOK","确定").Attribute="onclick=""" & str & """"
        End With
        e.WriteString(wb.Build) '生成网页
End Select

Dim ary() As String = {"数据1", "数据2", "数据3"} 有点甜老师如果这个数据4……数据15的话那么页面悲催了，无法看见取消与确认的选择了

能不能实现如下图中红色框里面的格式呢？

此主题相关图片如下：20193162357150780.png

weui无法实现这种

可以添加滚动条

Select Case e.Path

Case "test.htm", ""

Dim wb As New WeUI

With wb.AddInputGroup("","ipg1","干警信息")

.AddInput("姓名","姓名","Text").Attribute = """

End With

Dim wb2 As New weui

wb2.AddForm("","form2","test.htm")

Dim ary() As String = {"数据1", "数据2", "数据3"}

wb2.InsertHTML("form2","<div id='div1' style='overflow-y:auto;height:300px'>")

With wb2.AddCheckGroup("form2","rdg1","浏览器")

For i As Integer = 0 To 10

.Add("bm" & i, "数据" & i)

End With

wb2.InsertHTML("form2","</div>")

With wb.AddDialog("","dlg2", "请选择",wb2.Build)

.AddButton("btnCancel","取消").Kind = 1

Dim str As String = ""

str &= "var s = '';"

For i As Integer = 0 To ary.length-1

str &= "var c" & i & " = document.getElementById('bm" & i & "').checked;"

str &= "if(c" & i & "){s = s + '," & ary(i) & "'};"

'str &= "alert(s.substring(1));"

str &= "姓名.value = s.substring(1)"

'msgbox(str)

.AddButton("btnOK","确定").Attribute=" & str & """"

End With

e.WriteString(wb.Build) '生成网页

End Select

好的谢谢有点蓝老师我就不再纠结这样的方式了

那对于多个字段值的内容怎么操作呢？

比如我姓名字段值会有好几百个，怎么进行变通呢？

点击姓名，弹出一个窗口或者对话框，提供模糊查询功能，选择姓名后追加到文本框里

有点蓝老师有没有对应的weui模糊查询相关例子呢？

主题：AddSelect如何实现多选呢？当前已经解决了值的获取及单选，怎么实现多选呢？