快速开发平台--也谈刷新子窗体代码示例\RefreshDataList刷新窗体应用 -仙来专栏

根据杜老师的提示，前面相同，假如子窗体还带上平台通用查询，那还要加上一段代码：

     If mclsQuery Is Nothing Then    '若用到平台通用查询，就要加上这段，否则查询会出错
        Call Form_Load
    Else
        mclsQuery.DataForm = Me.sfrList.Form
    End If

这样的保存后，因为重新加载，查询变为原如，如默认查询。将代码改为以下所示，就不会改变原来的查询。

Private Sub Form_Timer()

    RequeryDataObject Me.sfrList
    If mclsQuery Is Nothing Then '若用到平台通用查询，就要加上这段，否则查询会出错
    'Call Form_Load
    Set mclsQuery = New GeneralQuery        '仙来注：省去重新加载
    With mclsQuery
        .QueryForm = Me.sfrQuickQuery.Form
        .DataForm = Me.sfrList.Form
    End With
    Me.Recalc
    '======================================================
    Else
       mclsQuery.DataForm = Me.sfrList.Form
    End If
    Me.TimerInterval = 0

End Sub

如下图:

参考联接：http://www.accessoft.com/article-show.asp?id=9015