主题：[求助]如何用按钮实现查询表的筛选和导出？

参考代码

 

Dim cbx1 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim cbx2 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox2")
Dim cbx3 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox3")
Dim filter As String = "1=1"
If cbx1.Text > "" Then
    filter &= " and 产品种类_产品大类 = '" & cbx1.text & "'"
End If
If cbx2.Text > "" Then
    filter &= " and 供应商 = '" & cbx2.text & "'"
End If
If cbx3.Text > "" Then
    filter &= " and 标记 = '" & cbx3.text & "'"
End If
msgbox(filter)
Tables("查询_采购关联").filter = filter

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

 改成左连接即可

 

 

此主题相关图片如下：qq截图20170713153238.png