'Dim Filter As String = "[Name] = '" & _UserName & "'"
Dim Filter As String = "[作者] = '" & _UserName & "'"
Dim f2 As String = "1=2 "
Dim dr As DataRow = DataTables("Users").Find("[Name] = '" & _UserName & "' and 阅读权限 is not null")
If dr IsNot Nothing Then
msgbox(dr("阅读权限"))
For Each s As String In dr("阅读权限").split(",")
f2 = f2 & " or ','+ 阅读权限+',' like '%," & s & ",%'"ext
End If
Filter = Filter & " or (" & f2 & ")"
msgbox(Filter)
'DataTables("图书表").LoadFilter = "','+阅读权限+',' like '%,B,%'"
'DataTables("图书表").Load()
DataTables("图书表").LoadFilter = Filter
DataTables("图书表").Load()
按内部，改外部，[Name] 改图书表的[作者] ，也是没效果，是从其实例搬过，对红字代码，也不是太理解，
其实需求：图书表，根据“用户表”的用户[Name]和阅读权限，加载相应的图书。
加好友 
发短信
Post By：2022/12/26 10:07:00 [显示全部帖子]
此主题相关图片如下：11.jpg
