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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甘特图使用

共有12862人关注过本帖树形打印复制链接主题：甘特图使用

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

甘特图使用

Post By：2017/9/2 23:44:00 [只看该作者]

能帮忙看看这个吗？不知道我是那里出错了？感谢感谢。

为什么例子上传不了呢，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:甘特图使用.rar

[此贴子已经被作者于2017/9/2 23:51:50编辑过]

有点甜

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

加好友

发短信

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

Post By：2017/9/3 11:55:00 [只看该作者]

If DrawGannt Then
    Dim r As Row = Tables("计划表窗口_Table4").Rows(e.Row.Index)
    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
    Dim dt3 As Date = r("进行_开始日期")
    Dim dt4 As Date = r("进行_完成日期")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/3 13:36:00 [只看该作者]

感谢感谢可以设置计划表窗口_Table4和图表筛选同步吗？感谢感谢。

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/3 13:59:00 [只看该作者]

谢谢谢谢可以了，只是筛选后还是会弹出报错的窗口，可以让筛选的表格和图像同步吗？感谢感谢

有点甜

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

加好友

发短信

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

Post By：2017/9/3 14:33:00 [只看该作者]

If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then
    Dim r As Row = Tables("计划表窗口_Table4").Rows(e.Row.Index)
    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
    Dim dt3 As Date = r("进行_开始日期")
    Dim dt4 As Date = r("进行_完成日期")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/3 15:40:00 [只看该作者]

可以再建一个事件表格，有日期、项目类别和处理状态。可以通过日期把这些表格内容如果在相同的项目和图表时间显示吗？

比如计划表有计划日期是 2017-05-05 到2017-06-05，然后在事件表格时间输入 2017-05-10，项目B 处理状态分别输入已处理，未处理，如果已经处理就在对应的日期图表里有个红点，没有未处理这个红点就闪烁，点击红点显示事件表格项目类别行对应的项目内容列。这个功能可以实现吗？感谢感谢