通过面板收缩后当前的选择行被遮住,如何显示在居中
If e.Sender.Text = "更多" Then
e.sender.Text = "收缩"
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.Panel2.Collapsed = False
Else If e.Sender.Text = "收缩" Then
e.sender.Text = "更多"
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.Panel2.Collapsed = True
End If
Tables("人才档案").Position = Tables("人才档案").Rows.Count