- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求个实现方法！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55691)
-- 发布时间：2014/8/21 14:01:00
-- 求个实现方法！
如下图，上面圈的地方实现下面表的查询和筛选，按钮代码写完了，现在只有清空和撤销的好使，不能正常查询。
此主题相关图片如下：捕获.png
-- 发布时间：2014/8/21 14:04:00
--
查询，参考这里
http://www.foxtable.com/help/topics/1058.htm
-- 发布时间：2014/8/21 14:17:00
--
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编辑过]
-- 发布时间：2014/8/21 14:23:00
--
最后不是要写哪个各个表要查询么？
Tables("表A").Filter = Filter1
-- 发布时间：2014/8/21 15:22:00
--
甜老师又出了个新问题，现在只要在筛选树双击的时候，上边文本框会自动填入数据而且数据还没有用，这个问题如何解决。
-- 发布时间：2014/8/21 15:24:00
--
以下是引用coolbhb在2014-8-21 15:22:00的发言：
甜老师又出了个新问题，现在只要在筛选树双击的时候，上边文本框会自动填入数据而且数据还没有用，这个问题如何解决。
甜老师又出了个新问题，现在只要在筛选树双击的时候，上边文本框会自动填入数据而且数据还没有用，这个问题如何解决。
窗口的控件，不要绑定表列，也不要用代码绑定
删除类似代码 Forms("收费").Controls("loudaima").BindingField = "客户信息.楼代码"
-- 发布时间：2014/8/21 15:25:00
--
那不绑定又如何用上边文本框查询筛选。。。
-- 发布时间：2014/8/21 15:26:00
--
以下是引用coolbhb在2014-8-21 15:25:00的发言：
那不绑定又如何用上边文本框查询筛选。。。
那不绑定又如何用上边文本框查询筛选。。。
绑定和筛选没有任何关系。