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
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
If r.IsNull("结束日期") = False AndAlso dt <= Date.Today AndAlso dt>dt2 AndAlso ((r.IsNull("确认结束日期") AndAlso dt2 < Date.Today) OrElse r("确认结束日期") > dt2 OrElse r("确认结束日期") < dt) Then
e.StartDraw()
e.Graphics.FillRectangle(Brushes.LightGray,e.x ,e.y + 3, e.Width, e.Height - 7)
e.EndDraw()
End If
End If
结束日期小于今天，改了好像没反应？求助？
加好友 
发短信
Post By：2018/9/22 10:24:00 [显示全部帖子]
此主题相关图片如下：qq截图20180922101349.jpg