点击下载此附件
Private Sub cmdResize_Click()
Me.Section(acDetail).Visible = (Not Me.Section(acDetail).Visible)
If Me.Section(acDetail).Visible Then
Me.cmdResize.Caption = "收起↑"
Me.InsideHeight = Me.Section(acDetail).Height + Me.Section(acFooter).Height
Else
Me.cmdResize.Caption = "展开↓"
Me.InsideHeight = Me.Section(acFooter).Height
End If
End Sub