- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口中的表如何实现自动调整高度？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118940)
-- 发布时间：2018/5/14 20:35:00
-- 窗口中的表如何实现自动调整高度？
窗口中有两个表，能否实现根据表的行数自动调整高度，两个表都能自动显示全部行数。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口表.foxdb |
-- 发布时间：2018/5/14 20:47:00
--
不科学吧，万一有几十上百行或上千上万行，那数据不是都看不清了。
-- 发布时间：2018/5/14 20:50:00
--
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
-- 发布时间：2018/5/14 20:51:00
--
每个表在窗口中显示的数据都不超过十行