平臺更新后,圖標導(dǎo)航的跳轉(zhuǎn)由原來的:
Private Sub 關(guān)閉當前窗體_Click()
Me.Parent.Form.sfmSubForm.SourceObject = "frmSysDeskTop"
End Sub
更改為:
Public cls As clsSysQryForm
Private Sub 關(guān)閉當前窗體_Click()
Set cls = New clsSysQryForm
Set cls.CurrForm = Me
If Not cls Is Nothing Then cls.gf_QryFormCloseClick
End Sub