主题：生产进度

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

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

点击浏览该文件:管理项目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

 呃，还是做一个小数的吧，呵呵，将就是有害处的。

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

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

我说的是彼此都有害处。一是你可能还会不断地提问，直到达到你想要的最好。二是我想偷懒。

我是想着你自己根据这个思路慢慢去调整达到你想要的效果，不过你没有，所以我说将就是有害处的。

所以呢，就弄了一下……

 自己去调整，看11楼的例子。不说了。