Office中国论坛/Access中国论坛

标题: [已解决]如何让子窗体里的数据与查询里的表数据显示一致? [打印本页]

作者: 小何 时间: 2007-12-18 10:18
标题: [已解决]如何让子窗体里的数据与查询里的表数据显示一致?
如何让子窗体里的数据与查询里的表数据显示一致?

[ 本帖最后由 cuxun 于 2007-12-18 19:38 编辑 ]

作者: andymark 时间: 2007-12-18 10:26
选择字段对话框后隐藏子窗体相关的项目

作者: 小何 时间: 2007-12-18 14:34
我要的是显示与子窗体内的记录数相同,就像子窗体内现筛选后就一条记录了.

作者: wwwwa 时间: 2007-12-18 15:01
示例：
Dim dd As QueryDef
Set dd = CurrentDb.QueryDefs("数据表视图1")
ff = Left(Trim(dd.SQL), Len(Trim(dd.SQL)) - 3) + " where " & Me.家庭明细.Form.Filter
dd.SQL = ff

作者: t小宝 时间: 2007-12-18 15:27
增加两处代码:
1.选择字段对话框1
...
strSQL = Left(strSQL, Len(strSQL) - 2) & " From 家庭 "
If Len(Forms!窗体2!家庭明细.Form.Filter) > 0 Then
strSQL = strSQL & " Where " & Forms!窗体2!家庭明细.Form.Filter
End If
qdf.SQL = strSQL
...

2.窗体2
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Me.家庭明细.Form.Filter = ""
End Sub
如果没有这一段,在取消子窗体的筛选后,再打开数据表视图就不能显示全部记录.

[attach]27333[/attach]

作者: 小何 时间: 2007-12-18 15:27
好象不行哦!,你能否直接帮修改一下看看,例子在第一楼的最下面

作者: 小何 时间: 2007-12-18 15:52
呵呵~~~~谢谢大家解决了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)