主题：如何阻止不正常提示

运行窗口后,在文本框中输入11 21(11和21之间有一个空格)过程中,会有提示窗口,删除11 21的过程中也有提示窗口,如何阻止该提示窗口出现?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim tb As Table=Tables(e.Form.name & "_Table1")
Dim Vals() As String = e.Form.Controls("TextBox1").Text.Split(" ")
Dim Filter As String
Select Case Vals.Length
    Case 1
        tb.Filter = "[第一列] = " & Vals(0) & " or [第二列] = " & Vals(0) & ""
    Case 2
        If Vals(1) <> "" Then
            Tb.Filter = "[第一列] = " & Vals(0) & " And [第二列] = " & Vals(1) & " or [第二列] = " & Vals(0) & " And [第一列] = " & Vals(1) & ""
        End If
    Case Else
        tb.Filter = ""
End Select

还有个小问题,删除11 21后,还有个提示.

这个判断一下就好了吧。

蒙的：

 

Dim tb As Table=Tables(e.Form.name & "_Table1")
Dim Vals() As String = e.Sender.Text.Split(" ")
Dim Filter As String
If e.Sender.Text = "" Then
    tb.Filter = ""
    Return
End If
Select Case Vals.Length
    Case 1
        tb.Filter = "[第一列] = " & Vals(0) & " or [第二列] = " & Vals(0) & ""
    Case 2
        If Vals(1) <> "" Then
            Tb.Filter = "[第一列] = " & Vals(0) & " And [第二列] = " & Vals(1) & " or [第二列] = " & Vals(0) & " And [第一列] = " & Vals(1) & ""
        End If
    Case Else
        tb.Filter = ""
End Select

真是我的老师呀！！！