Dim dwqx As String
If _UserRoles.Contains("系统主管") = False Then
Dim strs As String() = _UserRoles.split(",")
Dim rs As String
For Each ss As String In strs
rs = rs & ",'" & ss & "'"
Next
Dim drs As List(Of DataRow)
drs = DataTables("用户角色档案").Select("角色 in (" & rs.trim(",") & ")")
If drs.Count > 0 Then
For Each dr As DataRow In drs
dwqx = dr("核算单位权限") ‘核算单位权限列为多值字段
Next
End If
End If
Dim cmb As WinForm.CheckedComboBox = e.form.Controls("HSDW")
cmb.ComboList = DataTables("列表项目").GetComboListString("核算组织", "核算组织 In ( '" & dwqx.replace(",", "','") & "')")
提示以下错误，不知哪里有误
此主题相关图片如下：微信图片_20241021091124.png
加好友 
发短信
Post By：2024/10/21 9:12:00 [只看该作者]
