Dim Filter As String
Dim strs As String() = User.Roles.split(",")
Dim rs As String
For Each s As String In strs
rs=rs & ",'" & s & "'"
Next
Dim drs1 As List(of DataRow) = DataTables("加载内容权限表").Select("表名 = '" & e.node.Name & "' and 角色 in (" & rs.trim(",") & ") and 列名 is not null and 列内容 is not null and 制单人=false")
Dim drs2 As List(of DataRow) = DataTables("加载内容权限表").Select("表名 = '" & e.node.Name & "' and 角色 in (" & rs.trim(",") & ") and 制单人 = true")
For Each dr11 As DataRow In drs1
If Filter >"" Then
Filter = Filter & " or "
End If
Filter = Filter & "" & dr11("列名") & " In ( '" & dr11("列内容").replace(",","','") & "')"
Next
msgbox(Filter)
下面的条件显示并没有问题，但加载的内容却只是条件后面一部分
此主题相关图片如下：微信图片_20220211092623.png
加好友 
发短信
Post By：2022/2/11 9:29:00 [只看该作者]
