按钮代码
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")If sp.Panel2.Collapsed = False Then sp.Panel2.Collapsed = TrueElse sp.Panel2.Collapsed = FalseEnd If
Tables("行政区域").TopVisibleRow = Tables("行政区域").Position