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

右侧的甘特图，也多加辅助列，把左边的分组列的内容填写过来同样也分组折叠试试。

不然，就在左边分组折叠的使用，重新生成甘特图 。

 

具体说明你的问题，上传具体例子测试。

取数据，修改

 

If DrawGannt Then
    Dim r As Row  = Tables("项目甘特图_Table1").Rows(e.Row.Index, True)
    Dim dt1 As Date = r("计划开始日期")
    Dim dt2 As Date = r("计划完成日期")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If dt>=dt1 AndAlso dt<=dt2 Then
        e.StartDraw()
        If dt < Date.Today Then
            e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
        Else
            e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)
        End If
        e.EndDraw()
    End If
End If

至于选定行比较麻烦。点击汇总行，不会触发任何表事件的，这个时候你要额外绑定一个事件处理

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105737&skin=0

 

看7楼，修改代码。

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

 

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