窗口上如何当前登录的用户实现《图书表》按《用户表》的“用户名，阅读权限”加载相应的记录，具体的结果如图：
下面代码有问题，请帮忙处理，谢谢
Dim Filter As String
Dim f2 As String = "[经办人] = '" & User.Name & "'"
Dim dr1 As DataRow = Tables("图书表").Current.DataRow
Dim dr As DataRow = DataTables("用户表").Find("[用户名] = '" & dr1("经办人") & "'And [阅读权限] = '" & dr1("阅读权限") & "'")
If dr IsNot Nothing Then
f2 = " and 用户名 = '" & dr("经办人") & "' And (" & f2 & " Or [阅读权限] = '" & dr("阅读权限") & "')"
Else
f2 = " and " & f2
End If
Filter = Filter & f2
msgbox(Filter)
DataTables("图书表").LoadFilter = Filter
DataTables("图书表").Load()
[此贴子已经被作者于2022/11/28 17:02:57编辑过]
加好友 
发短信
Post By：2022/11/28 10:59:00 [只看该作者]
