Private Sub Command4_Click()
Dim strwh As String
strwh = "True"
If IsNull(Me.产品.Value) = False Then
strwh = strwh & " and 产品 Like '*" & Me.产品.Value & "*'"
End If
If IsNull(Me.规格.Value) = False Then
strwh = strwh & " and 规格 Like '*" & Me.规格.Value & "*'"
End If
Me.Child5.Form.Filter = strwh
Me.Child5.Form.FilterOn = True
Me.Child7.Form.Filter = strwh
Me.Child7.Form.FilterOn = True
End Sub