Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
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)

 

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

懂的指点一下,谢谢!

 

2楼
狐狸爸爸 发表于: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编辑过]
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01758 s, 2 queries.