方法一
Dim frm = forms("导航窗口").panel.parent.parenttry frm.AutoHiding = Truecatch ex As exception End try
方法二
Dim frm = forms("导航窗口").panel.parent.parentIf frm.Gettype.name = "bv" Then CurrentTable.FocusElse frm.AutoHiding = TrueEnd If