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
|