主题：有关甘特图的定位问题

按照帮助，做好了甘特图，但有一个地方想再完美一点：

如我点击左边的任务窗口是，想要让右边的甘特图自动定位到起始位置，而不是像现在这样都是定位在最左边，看起来一片空白。

甘特的代码一点也不懂，只是拿来用了，所以还请大侠们帮一下

这个不行啊，我选定了左边的项目，右边都是显示的最先的日期，即有一段空白。

我想点击左边的项目，右边焦点自动到项目开始日期，而不是甘特图的最左边

positionChanged事件

If Forms("窗口1").Opened() Then
    Dim tbl As Table = Tables("窗口1_Table2")
    If tbl.Position <> e.Table.Position Then
        Dim cname As String = format(e.Table.Current("开始日期"), "yyyy年M月_d")
        tbl.LeftVisibleCol = tbl.Cols(cname).Index
        tbl.Select(e.Table.Position, tbl.Cols(cname).Index)
    End If
End If

回复7楼，都可以的。一般写在窗口表控件的PositionChanged事件。