平台更新后,图标导航的跳转由原来的:
Private Sub 关闭当前窗体_Click()
Me.Parent.Form.sfmSubForm.SourceObject = "frmSysDeskTop"
End Sub
更改为:
Public cls As clsSysQryForm
Private Sub 关闭当前窗体_Click()
Set cls = New clsSysQryForm
Set cls.CurrForm = Me
If Not cls Is Nothing Then cls.gf_QryFormCloseClick
End Sub