以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  当前行可见 请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142051)

--  作者：yifan3429 --  发布时间：2019/10/17 11:13:00 --  当前行可见 请教 通过面板收缩后当前的选择行被遮住，如何显示在居中 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

--  作者：有点蓝 --  发布时间：2019/10/17 11:27:00 --   Tables("人才档案").TopVisibleRow = Tables("人才档案").Position