Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "登轮人员", "请选择登轮人员")
Dim s As String = DataTables("列表项目").GetComboListString("人员名单")
Dim Values() As String
Values = s.split("|")
If values.length > 0 Then
For Index As Integer = 0 To values.Length - 1
cdg.add("rd" & CStr(Index),values(index))
Next
End If
wb.InsertHTML("form2", cdg.BuildHtml)
通过复选框,点击确认后通过js传值到接收函数,经测试e.postvalues接收到的值数量正确,但是值是空的,怀疑是黄色字体部分有错误。