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

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

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

主题：请高人给看一下Filter