以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]模糊筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76946)
--  作者：seal51
--  发布时间：2015/11/8 16:45:00
--  [求助]模糊筛选

模糊筛选代码：

 

Dim txt As String = e.Form.Controls("模糊查询").Text
Dim tbl As Table = Tables("材料窗口_材料表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
     tbl.Filter = "材料分类 Like " & txt & " Or 产品材料 Like " & txt
End If

 

如果表里没有想要查询的内容， 就弹出

 

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151108162634.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/11/8 16:47:00
--  

去看currentChanged事件

 

If e.Table.Current Is Nothing Then Return
--  作者：seal51
--  发布时间：2015/11/8 18:20:00
--  

谢谢老师！