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

时　间:2013-12-18 10:08:26
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:盟威快速开发平台刷新子窗体的VBA代码
正　文:

用示例中子窗体frm到站 来举例:

第一步.在编辑窗体《保存按钮单击事件里》加上      
Form_frm到站.RefreshDataList  '调用子窗体里自定义刷新函数 。如下图

第二步.在子窗体frm到站 里加上自定义刷新函数及触发事件就OK了
Public Sub RefreshDataList()    '自定义函数,供编辑窗体调用
    Me.TimerInterval = 200     '0.2秒后执行触发事件 Form_Timer() 来刷新子窗体

End Sub

Private Sub Form_Timer()
     RequeryDataObject Me.sfrList  '刷新绑定窗体中的数据

    Me.TimerInterval = 0
 End Sub
如下图

另外:假如子窗体还带上平台通用查询，那还要加上一段代码
    If mclsQuery Is Nothing Then    '若用到平台通用查询，就要加上这段，否则查询会出错
        Call Form_Load
    Else
        mclsQuery.DataForm = Me.sfrList.Form
    End If
 
如下图:

总结:

此文自定义RefreshDataList函数作用是调用 RequeryDataObject刷新函数

RequeryDataObject才是快速平台刷新窗体真正函数，它定义在代码库里。
 意思是刷新绑定窗体中的数据，并重新定位到原来记录行或满足指定条件的行上。
相关示例
Sub Test()
    RequeryDataObject Me                                 '刷新当前窗体中的数据
    RequeryDataObject Me.sfrOrderDetail                  '刷新sfrOrderDetail子窗体中的数据
    RequeryDataObject Me.sfrOrderDetail, "OrderID = 144" '刷新sfrOrderDetail子窗体中的数据，并重新定位到OrderID等于144的记录行
End Sub