Dim Filter As String = "[经办人] = '" & User.Name & "'"
Dim f2 As String = "1=2 "
Dim dr As DataRow = DataTables("用户表").Find("[用户名] = '" & dr1("经办人") & "' and 阅读权限 is not null")
If dr IsNot Nothing Then
For Each s As String In dr("阅读权限").split(",")
f2 = " or ','+ 阅读权限+',' like '%," & s & ",%'"
Next
End If
Filter = Filter & "(" & f2 & ")"
msgbox(Filter)
DataTables("图书表").LoadFilter = Filter
DataTables("图书表").Load()
加好友 
发短信
Post By：2022/11/28 11:22:00 [只看该作者]
