Dim t As Table = Tables("订单")
Dim t1_height As Integer = (t.Rows.Count+2) * t.DefaultRowHeight
Dim t2 As Table = Tables("表二")
Dim t2_height As Integer = (t2.Rows.Count+2) * t2.DefaultRowHeight
Dim sp1 As WinForm.SplitContainer = Forms("窗口1").Controls("SplitContainer1")
Dim sp2 As WinForm.SplitContainer = Forms("窗口1").Controls("SplitContainer2")
sp1.SplitterDistance = t1_height + t2_height + 6
sp2.SplitterDistance = t2_height
加好友 
发短信
Post By：2018/5/14 20:50:00 [显示全部帖子]
