[已解决]如何让子窗体里的数据与查询里的表数据显示一致?

小何

如何让子窗体里的数据与查询里的表数据显示一致?

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

andymark

选择字段对话框后隐藏子窗体相关的项目

小何

我要的是显示与子窗体内的记录数相同,就像子窗体内现筛选后就一条记录了.

wwwwa

示例：
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小宝

增加两处代码:
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
如果没有这一段,在取消子窗体的筛选后,再打开数据表视图就不能显示全部记录.

小何

好象不行哦!,你能否直接帮修改一下看看,例子在第一楼的最下面

小何

呵呵~~~~谢谢大家解决了