求个实现方法！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图，上面圈的地方实现下面表的查询和筛选，按钮代码写完了，现在只有清空和撤销的好使，不能正常查询。

此主题相关图片如下：捕获.png

Forms("收费").Controls("loudaima").BindingField = "客户信息.楼代码"

是在窗口的Afterload 事件里吗？还是没有效果。

下面是查询按钮的代码

Dim Filter1 As String

With e.Form.Controls("loudaima")

If .Value IsNot Nothing Then

Filter1 = "楼代码 = '" & .Value & "'"

End If

End With

With e.Form.Controls("xiaoqu")

If .Value IsNot Nothing Then

If Filter1 > "" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "小区 = '" & .Value & "'"

End If

End With

With e.Form.Controls("louhao")

If .Value IsNot Nothing Then

If Filter1 > "" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "楼号 = '" & .Value & "'"

End If

End With

With e.Form.Controls("danyuan")

If .Value IsNot Nothing Then

If Filter1 > "" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "单元 = '" & .Value & "'"

End If

End With

With e.Form.Controls("cengshu")

If .Value IsNot Nothing Then

If Filter1 > "" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "层数 = '" & .Value & "'"

End If

End With

With e.Form.Controls("shihao")

If .Value IsNot Nothing Then

If Filter1 > "" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "室号 = '" & .Value & "'"

End If

End With

[此贴子已经被作者于2014-8-21 14:20:30编辑过]

最后不是要写哪个各个表要查询么？

Tables("表A").Filter = Filter1

甜老师又出了个新问题，现在只要在筛选树双击的时候，上边文本框会自动填入数据而且数据还没有用，这个问题如何解决。

以下是引用coolbhb在2014-8-21 15:22:00的发言：
甜老师又出了个新问题，现在只要在筛选树双击的时候，上边文本框会自动填入数据而且数据还没有用，这个问题如何解决。

窗口的控件，不要绑定表列，也不要用代码绑定

删除类似代码 Forms("收费").Controls("loudaima").BindingField = "客户信息.楼代码"

那不绑定又如何用上边文本框查询筛选。。。

以下是引用coolbhb在2014-8-21 15:25:00的发言：
那不绑定又如何用上边文本框查询筛选。。。

绑定和筛选没有任何关系。

主题：求个实现方法！