Dim Filter As String
With forms("资金分配操作窗口").Controls("ComboBox1")
If .text <> Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "绑定号 = '" & .Value & "'" '此处内容自行修改
End If
End With
Tables("回款勾选窗口_Table1").Filter = iif(Filter>"", filter & " And ", "") & "收款信息_付款否=false"
Tables("回款勾选窗口_Table1").ExtendLastCol = True '功能是填表列与窗口后面的间歇
[此贴子已经被作者于2017/11/12 19:43:55编辑过]