- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]多个时间节点的甘特图 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121087)
-- 发布时间：2018/6/29 0:38:00
-- [讨论]多个时间节点的甘特图
像这样，根据几个节点，在进度图上显示成红绿相间，应该如何改代码呀。
[此贴子已经被作者于2018/6/29 0:39:47编辑过]
-- 发布时间：2018/6/29 0:41:00
--
此主题相关图片如下：甘特.bmp
此主题相关图片如下：2.jpg
[此贴子已经被作者于2018/6/29 0:40:50编辑过]
-- 发布时间：2018/6/29 9:00:00
--
类似，参考
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118958&authorid=0&page=0&star=1
-- 发布时间：2018/6/29 11:26:00
--
If DrawGannt Then
Dim r As Row = Tables("任务").Rows(e.Row.Index)
Dim dt1 As Date = r("开始日期")
Dim dt2 As Date = r("结束日期")
Dim dt01 As Date = r("节点1")
Dim dt02 As Date = r("节点2")
Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
If dt>=dt1 AndAlso dt<=dt2 Then
e.StartDraw()
If dt < dt01 Then
e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
ElseIf dt > dt01 AndAlso dt<=dt02 Then
e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)
End If
e.EndDraw()
End If
End If
为啥第二个条件画不出来呢
-- 发布时间：2018/6/29 11:37:00
--
搞好 了
-- 发布时间：2018/6/29 11:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |