以下内容为程序代码:
1 Dim Filter As String
2 With e.Form.Controls("ComboBox1")
3 If .Value IsNot Nothing Then
4 Filter = "物料编码 = '" & .Value & "'"
5 End If
6 End With
7 With e.Form.Controls("ComboBox2")
8 If .Value IsNot Nothing Then
9 If Filter > "" Then
10 Filter = Filter & " And "
11 End If
12 Filter = Filter & "入库.订单号 = '" & .Value & "'"
13 End If
14 End With
15 With e.Form.Controls("TextBox1")
16 If .Value IsNot Nothing Then
17 If Filter > "" Then
18 Filter = Filter & " And "
19 End If
20 Filter = Filter & "标签已打 = '" & .Value & "'"
21 End If
22 End With
23 With e.Form.Controls("TextBox2")
24 If .Value IsNot Nothing Then
25 If Filter > "" Then
26 Filter = Filter & " And "
27 End If
28 Filter = Filter & "入库.类型 = '" & .Value & "'"
29 End If
30 End With
31 With e.Form.Controls("TextBox3")
32 If .Value Is Nothing Then
33 If Filter > "" Then
34 Filter = Filter & " And "
35 End If
36 Filter = Filter & "实际发货日期 = '" & .Value & "'"
37 End If
38 End With
39 msgbox(Filter)
40 If Filter > "" Then
41 Tables("总表").Filter = Filter
42 End If