一个表,按一个条件,分成三个窗体显示,这段代码要怎么改?
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "产品编号 Like '%" & .Value & "%'"
End If
End With
If Filter > "" Then
Tables("汇总表").Filter = Filter
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq图片20161007114531.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-10/20161071146253992.jpg)
此主题相关图片如下:qq图片20161007114524.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-10/20161071146261450.png)