+ -
当前位置:首页 → 问答吧 → 帮忙看一段代码,懂的指点一下,谢谢!

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

时间:2011-08-07

来源:互联网

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

 

代码如下

 

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)
 

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

懂的指点一下,谢谢!

作者: yacity   发布时间: 2011-08-07

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

想这样?

作者: jennyvenus   发布时间: 2011-08-07

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

作者: c_cyd2008   发布时间: 2011-08-07

热门下载

更多