Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中的表如何实现自动调整高度？


  共有2500人关注过本帖树形打印复制链接

主题：窗口中的表如何实现自动调整高度？
帅哥哟，离线，有人找我吗？
hahahehe21
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：93 积分：1885 威望：0 精华：0 注册：2014/4/11 21:10:00 		窗口中的表如何实现自动调整高度？  发帖心情 Post By：2018/5/14 20:35:00 [只看该作者]

窗口中有两个表，能否实现根据表的行数自动调整高度，两个表都能自动显示全部行数。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口表.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2018/5/14 20:47:00 [只看该作者]

不科学吧，万一有几十上百行或上千上万行，那数据不是都看不清了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
hahahehe21
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：93 积分：1885 威望：0 精华：0 注册：2014/4/11 21:10:00 		  发帖心情 Post By：2018/5/14 20:51:00 [只看该作者]

每个表在窗口中显示的数据都不超过十行

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询