-- [求助]窗口问题
一个表,按一个条件,分成三个窗体显示,这段代码要怎么改?
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
此主题相关图片如下:qq图片20161007114531.jpg
此主题相关图片如下:qq图片20161007114524.png