[求助]汇总表做甘特图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]汇总表做甘特图

共有3980人关注过本帖树形打印复制链接主题：[求助]汇总表做甘特图

swimmer01

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00

[求助]汇总表做甘特图 发帖心情

Post By：2018/9/20 9:52:00 [只看该作者]

老师好！

我有一项目进度计划，需做甘特图，按帮助文件只是将左侧任务表改为其汇总表，由于汇总表能按分组折叠，右侧的甘特图无法跟随，请教有无办法？谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/20 9:56:00 [只看该作者]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/20 9:57:00 [只看该作者]

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

swimmer01

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00

Post By：2018/9/20 10:01:00 [只看该作者]

多级分组折叠后左边表无法定位行及取数据？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/20 10:17:00 [只看该作者]

以下是引用swimmer01在2018/9/20 10:01:00的发言：
多级分组折叠后左边表无法定位行及取数据？

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

swimmer01

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00

Post By：2018/9/20 10:29:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目计划管理.zip

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/20 10:36:00 [只看该作者]

取数据，修改

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