代码如下：
Dim cmb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim s As String = "1=2 "
For Each s1 As String In cmb.text.split(",")
s = s & " or 身份属性 like '%" & s1 & "%' "
Next
msgbox(s) 这个部分是可以正确弹出所选择的值内容
Dim sql As String
sql = "Sele ct * From {干警信息} where 所在单位='"& _UserGroup & " And " & s & ""
DataTables("干警信息").SQLLoad(sql)
运行结果
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：加载[干警信息]失败!
详细错误信息：
' ' 附近有语法错误。
字符串 ' ' 后的引号不完整。
如果红色部分更改为
DataTables("干警信息").SQLLoad("(" & s & ") And 所在单位= '" & _usergroup & "' ")
运行会提示出错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：加载[干警信息]失败!
详细错误信息：
'1' 附近有语法错误。
加好友 
发短信
Post By：2020/4/16 15:48:00 [只看该作者]
