Dim Filter As String = ""
With e.Form.Controls("不良类型3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "不良类型= '" & .Value & "'"
End If
End With
With e.Form.Controls("类型原因3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "类型原因= '" & .Value & "'"
End If
End With
e.Form.controls("异常类型").Table.Filter = Filter