If e.Sender.Text = "明细" Then
e.sender.Text = "凭证"
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer6")
sp.Panel2.Collapsed = False
'Dim s1p As WinForm.SplitContainer = e.Form.Controls("SplitContainer6")
's1p.Panel1.Collapsed = False
DataTables("凭证明细").AllowEdit = True
Else If e.Sender.Text = "凭证" Then
e.sender.Text = "明细"
Dim s2p As WinForm.SplitContainer = e.Form.Controls("SplitContainer6")
s2p.Panel2.Collapsed = True
'Dim s3p As WinForm.SplitContainer = e.Form.Controls("SplitContainer6")
's3p.Panel1.Collapsed = True
DataTables("凭证明细").AllowEdit = False
End If
我希望 凭证表当前行始终显示在可见的范围类 不会折叠后看不到了
加好友 
发短信
Post By：2018/6/30 12:56:00 [只看该作者]
