Foxtable(狐表)用户栏目专家坐堂 → 帮忙看一段代码,懂的指点一下,谢谢!


  共有9951人关注过本帖树形打印复制链接

主题:帮忙看一段代码,懂的指点一下,谢谢!

帅哥哟,离线,有人找我吗?
yacity
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
帮忙看一段代码,懂的指点一下,谢谢!  发帖心情 Post By: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)

 

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

懂的指点一下,谢谢!

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部