- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 甘特图改进问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53312)
-- 发布时间：2014/7/4 16:45:00
-- 甘特图改进问题？
甘特图改进问题？我在原来帮助的甘特图例子上列名采用表头式后出现不对你，请问在哪里设置可设右侧甘特图与左侧对称？
此主题相关图片如下：0011.jpg
-- 发布时间：2014/7/4 16:48:00
--
设置一下表头的高度
Tables("表名").SetHeaderRowHeight(20,25)
http://www.foxtable.com/help/topics/1548.htm
-- 发布时间：2014/7/4 16:55:00
--
写在哪里啊？表属性什么位置的？
-- 发布时间：2014/7/4 17:03:00
--
窗口打开事件 afterLoad，表名要写对，高度要设置正确。
-- 发布时间：2014/7/4 17:22:00
--
这个只可设定左侧的，右侧的甘特图标题高度在哪里设呢？
-- 发布时间：2014/7/4 17:27:00
--
这个只可设定左侧的，右侧的甘特图标题高度在哪里设呢？
改成对应的表名，就能设置了啊。
e.Forms.Controls("Table1").Table.SetHeaderRowHeight(20,25)
-- 发布时间：2014/7/4 17:36:00
--
太高难度了
此主题相关图片如下：0033.jpg
-- 发布时间：2014/7/4 17:41:00
--
写错了
e.Form.Controls("任务").Table.SetHeaderRowHeight(20,25)
-- 发布时间：2014/7/4 17:46:00
--
试试 写在表格的 AfterResizeRow 事件里
表格1
Dim tb1 As Table = e.Form.Controls("Table1").Table
Dim tb2 As Table = e.Form.Controls("Table2").Table
If e.Position < 0 Then
tb2.Grid.Rows(0).Height = tb1.Grid.Rows(0)
tb2.Grid.Rows(1).Height = tb1.Grid.Rows(1)
Else
tb2.DefaultRowHeight = tb1.DefaultRowHeight
End If
表格2
Dim tb1 As Table = e.Form.Controls("Table1").Table
Dim tb2 As Table = e.Form.Controls("Table2").Table
If e.Position < 0 Then
tb1.Grid.Rows(0).Height = tb2.Grid.Rows(0).Height
tb1.Grid.Rows(1).Height = tb2.Grid.Rows(1).Height
Else
tb1.DefaultRowHeight = tb2.DefaultRowHeight
End If