主题：[求助]汇总表做甘特图

已修改，全部展开应该好解决，现在是折叠后没办法，再有最后一行显示不全（我想多增加一行，这个也能解决）

你可以循环每一行，同步每一行的行高

 

Dim t As Table = CurrentTable
For i As Integer = t.HeaderRows To t.grid.Rows.count-1
    msgbox(t.grid.Rows(i).heightdisplay)
Next

老师：

内部函数

 

If Forms("项目甘特图").Opened()
    Dim t1 As Table = Tables("项目甘特图_Table1")
    Dim t2 As Table = Tables("项目甘特图_Table2")
    If t1.TopVisibleRow >=0 Then
        Dim r As Row = t1.Rows(t1.TopVisibleRow, True)
        Dim dt As Date = r("计划开始日期")
        Dim nm As String = dt.Year & "年" & dt.Month &"月_" & dt.Day
        Dim idx As Integer= t2.cols(nm).Index
        t2.LeftVisibleCol = idx
    End If
End If

谢谢老师，数据滚动时没问题了，但是打开窗口时依然有错误提示：

If Forms("项目甘特图").Opened()
    Dim t1 As Table = Tables("项目甘特图_Table1")
    Dim t2 As Table = Tables("项目甘特图_Table2")
    If t1.TopVisibleRow >=0 Then
        Dim r As Row = t1.Rows(t1.TopVisibleRow, True)
        Dim dt As Date = r("计划开始日期")
        Dim nm As String = dt.Year & "年" & dt.Month &"月_" & dt.Day
        If t2.cols.contains(nm)
            Dim idx As Integer= t2.cols(nm).Index
            t2.LeftVisibleCol = idx
        End If
    End If
End If

谢谢！还差汇总表折叠时，甘特图的同步问题了，我再想想，不行再请教老师。

绑定 AfterCollapse 事件

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目计划管理.zip

谢谢！