主题：[求助]关于查询窗口的设计

1、不要用iif，应该这样写：

Dim bm  As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")  
If bm.Value Is Nothing Then
   Tables("表A").Filter = "[部门名称]   In ( 'IT部') "
Else
    Tables("表A").Filter= "[部门名称]  In ( '" & bm.value.Replace(",","','") & "')"
End If

2、参考：

http://www.foxtable.com/help/topics/1058.htm