以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请高人给看一下Filter  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184140)

--  作者:chz007
--  发布时间:2022/11/25 9:42:00
--  请高人给看一下Filter
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
Dim tb2 As WinForm.Table = Forms(vars("djlx")).Controls("Table1")

Dim r As Row = tb2.Table.Current
If r("品种名称") > "" <> 0 Then
tb1.Table.Filter = "品种名称 like \'*" & r("品种名称") & "*\' or  拼音码 like \'*" & r("品种名称") & "*\'or  产地 like \'*" & r("品种名称") & "*\'  or  品种编码 like \'*" & r("品种名称") & "*\'  Or  类型 Like \'*" & r("品种名称") & "*\' "

End If

绑定数据表里可以用,绑定临时表不能用

--  作者:有点蓝
--  发布时间:2022/11/25 9:50:00
--  
筛选不了还是提示什么错?

If r("品种名称") > "" <> 0 Then
改为
If r.isnull("品种名称") = false Then

--  作者:chz007
--  发布时间:2022/11/25 9:54:00
--  
tb1.Table.Filter = "品种名称 like \'*" & r("品种名称") & "*\' or  拼音码 like \'*" & r("品种名称") & "*\'or  产地 like \'*" & r("品种名称") & "*\'  or  品种编码 like \'*" & r("品种名称") & "*\'  Or  类型 Like \'*" & r("品种名称") & "*\' "
--  作者:chz007
--  发布时间:2022/11/25 9:54:00
--  
这条


--  作者:chz007
--  发布时间:2022/11/25 9:54:00
--  
筛选不了


--  作者:有点蓝
--  发布时间:2022/11/25 10:02:00
--  
设置完看看条件是什么

msgbox(tb1.Table.Filter)

--  作者:chz007
--  发布时间:2022/11/25 10:17:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/11/25 10:29:00
--  
r("品种名称") 这个单元格没有数据
--  作者:chz007
--  发布时间:2022/11/25 10:55:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
采购是绑定数据表,销售是绑定临时表

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/11/25 11:03:00
--  
不管绑定什么表,单元格没有数据,肯定就无法筛选。如果有数据还是筛选不了,那就是没有符合条件的数据