主题：甘特图

您好，我已经按示例生成了甘特图表格。

1、可以在窗口AfterLoad事件写代码，如

 

Dim t As Table = Tables("窗口1_Table1")

t.TopVisibleRow = t.cols("某列").index

 

http://www.foxtable.com/webhelp/scr/2358.htm

 

2、你可以去写表格的click事件，根据日期设置位置，参考1的代码

 

主要这里的“某列”是个生成的日期列  （详见示例：编码绘制甘特图的窗口右侧的查询表）

dim dt as date = date.today
dim lm as string = dt.Year & "年" &  dt.Month & "月_" & dt.Day
Dim t As Table = Tables("窗口1_Table1")
t.TopVisibleRow = t.cols(lm).index

十分感谢~~~