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

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 r.IsGroup '如果是分组行
            If r.Level = 0 Then
                e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 8, e.Width, e.Height - 16)
            ElseIf r.level = 1 Then
                e.Graphics.FillRectangle(Brushes.Sienna,e.x ,e.y + 8, e.Width, e.Height - 16)
            ElseIf r.level = 2 Then
                e.Graphics.FillRectangle(Brushes.DarkOrchid,e.x ,e.y + 8, e.Width, e.Height - 16)
            End If
        Else
            e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 8, e.Width, e.Height - 16)
        End If

        e.EndDraw()
    End If
End If

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