主题：生产进度

你好！能否在日期进度条上增加生产进度色条

 做一个大概，小数就不弄了。

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

点击浏览该文件:管理项目899.table

林老师，谢谢您！

收藏

林老师，您好！

 简单改一下代码就可以了

If DrawGannt Then
    Dim r As Row  = Tables("任务").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
        If r.IsNull("生产任务") = False Then
            Dim day As Integer = r("生产周期") / r("生产任务") * r("当日累计")
            If dt < dt1.AddDays(day) Then
                e.Graphics.FillRectangle(Brushes.Yellow,e.x ,e.y + 8, e.Width, e.Height - 16)
            End If
        End If
        e.EndDraw()
    End If
End If

学习阶段！帮你顶

您好！林老师，中间色条，能否致尽头

呃，楼主，要进步啊。

If dt <= dt1.AddDays(day) Then

林老师，早上好！