Dim Filter As String
With e.Form.Controls("textbox1")
If .Value IsNot Nothing Then
Filter = Filter & "code Like \'*" & .Value & "*\' Or name Like \'*" & .Value & "*\' Or SPECS Like \'*" & .Value & "*\' Or note Like \'*" & .Value & "*\'"
End If
End With
With e.Form.Controls("combobox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "sybmname Like \'*" & .Value & "*\'"
End If
End With
With e.Form.Controls("combobox2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "afname Like \'*" & .Value & "*\'"
End If
End With
If Filter > "" Then
Tables("assetcard").Filter = Filter
Dim r As Integer = CurrentTable.Rows.Count
MessageBox.Show("共找到 " & r & "条符合条件的资产信息!", "提示")
End If