- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口table控件内容的格式问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77542)
-- 发布时间：2015/11/20 9:01:00
-- 窗口table控件内容的格式问题？
窗口table控件内容的格式问题？
如何让table自动缩放填满窗口，并且让标题和表内容垂直居中？
此主题相关图片如下：2015年11月20日.png
-- 发布时间：2015/11/20 9:10:00
--
Dim t As Table = Tables("表A")
Dim w As Integer = (t.grid.width-20) / t.cols.count
For Each c As object In t.cols
c.width = w
Next
Dim h As Integer = (t.grid.height-20) / (t.rows.count+1)
t.DefaultRowHeight = h
-- 发布时间：2015/11/20 10:38:00
--
按照代码修改后的效果，是不是哪里不对？
另外居中的问题如何解决呢？
此主题相关图片如下：2015年11月20日2.png
-- 发布时间：2015/11/20 10:57:00
--
细节自己调整
Dim t As Table = Tables("表A")
Dim w As Integer = (t.grid.width-30) / (t.getColVisibleWidth.split("|").length / 2)
For Each c As Col In t.cols
c.width = w
c.TextAlign = TextAlignEnum.Center
Next
Dim h As Integer = (t.grid.height) / (t.rows.count+1)
t.DefaultRowHeight = h