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

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