以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮忙看一段代码，懂的指点一下，谢谢！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11682)
--  作者：yacity
--  发布时间：2011/8/7 21:32:00
--  帮忙看一段代码，懂的指点一下，谢谢！

帮忙看一段代码，懂的指点一下，谢谢！

 

代码如下

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口4_Table1")
   tbl.filter=""
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = ("pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt )
End If

 

 

我想把他改成 tbl.filter=(" pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt") and (leveal=2 and deleted=0 and isstop=0)

 

具体规范的方法怎么写？我尝试过很多方法都不对。

懂的指点一下，谢谢！

 
--  作者：狐狸爸爸
--  发布时间：2011/8/7 22:24:00
--  

tbl.filter = "(pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt & ") and (leveal=2 and deleted=0 and isstop=0)"

[此贴子已经被作者于2011-8-7 22:25:51编辑过]