试试
If Forms("关联表").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
Dim cls() As String = {"商品名称","供应商名称","客户名称"} ' 假设checkbox控件名称和标题一样
Dim t As Table = Tables("关联表_Table批发表1")
With Tables("返利合同")
If .Current Is Nothing Then
t.Filter = "False"
Else
Dim filter As String = "1=1"
For Each c As String In cls
If Forms("关联表").Controls(c).Checked And t.Cols.Contains(c) And .Cols.Contains(c) Then
filter &= c & "='" & .Current(c) & "'"
End If
Next
If filter = "1=1" Then filter = "False"
t.Filter = filter
End If
End With
End If
[此贴子已经被作者于2017/1/25 11:39:50编辑过]
加好友 
发短信
Post By：2017/1/25 9:55:00 [显示全部帖子]
