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

可以添加滚动条

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

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