以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  甘特图  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110221)
--  作者：tesia255
--  发布时间：2017/11/29 10:24:00
--  甘特图
您好，我已经按示例生成了甘特图表格。

现在我希望打开甘特图表格的时候，就自动定位到今天的列。
当我选择任务表中的某具体日期的时候，甘特图也自动定位到这一行的这个日期列。


这个是在打开表  和  表选择切换的事件中写代码吗？代码要怎么取值甘特图的列？
--  作者：有点甜
--  发布时间：2017/11/29 10:41:00
--  

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的代码

 
--  作者：tesia255
--  发布时间：2017/11/29 16:48:00
--  
主要这里的“某列”是个生成的日期列  （详见示例：编码绘制甘特图的窗口右侧的查询表）


这种列要怎么定位？
--  作者：有点甜
--  发布时间：2017/11/29 17:14:00
--  

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
--  作者：tesia255
--  发布时间：2017/11/29 17:23:00
--  
十分感谢~~~