If Forms("服务包设置").Opened() '一定要判断用于模拟关联表的窗口是否已经打开 Dim s As Table = Tables("服务包明细") With Tables("服务包名称") If .Current Is Nothing Then s.Filter = "False" Else s.Filter = "[客户ID] Is Null" '表B中筛选出状态为空的记录. s.Filter = "服务包ID = '" & .Current("服务包ID") & "'" End If End With End If