专家坐堂-请高人给看一下FilterFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请高人给看一下Filter  (http://foxtable.net/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
--
不管绑定什么表，单元格没有数据，肯定就无法筛选。如果有数据还是筛选不了，那就是没有符合条件的数据