If Forms("首页").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("首页_Table2")
With Tables("首页_Table1")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "身份证号码 = '" & .Current("身份证号码") & "'"
End If
End With
End If
我在窗口做了一个加载按钮
Dim sd As DataRow = DataTables("Users").Find("[Name] = '"& _UserName & "'")
Dim s1 As String = sd("地区")
Dim s2 As String = sd("单位")
Dim s3 As String = sd("部门")
Tables("首页_Table1").DataTable.LoadFilter = "[部门] = '"& s3 &"'"
Tables("首页_Table1").DataTable.Load
点击按钮报错
[此贴子已经被作者于2019/1/22 15:16:49编辑过]
加好友 
发短信
Post By：2019/1/22 15:04:00 [显示全部帖子]
