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

时　间:2015-10-23 10:13:44
作　者:仙来   ID：30269  城市：池州
摘　要:盟威快速开发平台刷新子窗体的VBA代码
正　文:

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

     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

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店