- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何阻止不正常提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8744)
-- 发布时间：2010/12/3 15:37:00
-- 如何阻止不正常提示
运行窗口后,在文本框中输入11 21(11和21之间有一个空格)过程中,会有提示窗口,删除11 21的过程中也有提示窗口,如何阻止该提示窗口出现?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2010/12/3 15:57:00
--
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
-- 发布时间：2010/12/3 16:09:00
--
还有个小问题,删除11 21后,还有个提示.
-- 发布时间：2010/12/3 16:23:00
--
这个判断一下就好了吧。
蒙的：
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
-- 发布时间：2010/12/3 16:46:00
--
真是我的老师呀！！！