- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 甘特图使用 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106136)
-- 发布时间：2017/9/2 23:44:00
-- 甘特图使用
能帮忙看看这个吗？不知道我是那里出错了？感谢感谢。
为什么例子上传不了呢，感谢 感谢
[此贴子已经被作者于2017/9/2 23:51:50编辑过]
-- 发布时间：2017/9/3 11:55:00
--
If DrawGannt Then
Dim r As Row = Tables("计划表窗口_Table4").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
e.EndDraw()
End If
Dim dt3 As Date = r("进行_开始日期")
Dim dt4 As Date = r("进行_完成日期")
If dt>=dt3 AndAlso dt<=dt4 Then
e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
End If
End If
-- 发布时间：2017/9/3 13:36:00
--
感谢 感谢 可以设置计划表窗口_Table4和图表筛选同步吗？感谢 感谢 。
-- 发布时间：2017/9/3 13:59:00
--
谢谢 谢谢 可以了，只是筛选后还是会弹出报错的窗口，可以让筛选的表格和图像同步吗？感谢 感谢
-- 发布时间：2017/9/3 14:33:00
--
If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then
Dim r As Row = Tables("计划表窗口_Table4").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
e.EndDraw()
End If
Dim dt3 As Date = r("进行_开始日期")
Dim dt4 As Date = r("进行_完成日期")
If dt>=dt3 AndAlso dt<=dt4 Then
e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
End If
End If
-- 发布时间：2017/9/3 15:40:00
--
可以再建一个事件表格，有日期、项目类别和处理状态。可以通过日期把这些表格内容如果在相同的项目 和图表时间显示吗？
比如 计划表有计划日期是 2017-05-05 到2017-06-05，然后在事件表格 时间输入 2017-05-10，项目B 处理状态分别输入 已处理，未处理，如果已经处理就在对应的日期图表里有个红点，没有未处理这个红点就闪烁，点击红点显示事件表格 项目类别行对应的项目内容列。 这个功能可以实现吗？感谢 感谢
此主题相关图片如下：qq截图20170903153934.jpg
-- 发布时间：2017/9/3 15:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:甘特图使用.table |
-- 发布时间：2017/9/3 17:30:00
--
谢谢，谢谢 太感谢了，我知道今天是星期天，浪费了你不少的时间，也非常的感谢你，今天能在最后问题4个问题吗？如果你觉得累了也没事。的确浪费你太多时间了。都不知道怎么感谢你了。
1、我可以在窗口2 设计一个DateTimePicker1绑定 甘特图吗？，比如打开一个窗口，窗口有DateTimePicker1，DateTimePicker1的日期就是手柄选择甘特图的日期。
此主题相关图片如下：qq截图20170903172645.jpg
2、如果计划_开始日期已经输入了日期，但是计划_完成日期没有输入日期，在甘特图也能显示出来，完成日期默认为当天日期，如果输入了就为输入的日期。
3、可以默认甘特图的位置吗？比如把今天是2017-09-03，打开窗口，甘特图2017-09-03在某个指定的位置。
此主题相关图片如下：qq截图20170903172523.jpg
4、筛选右边后可以让甘特图的行数和左边的一样吗？
此主题相关图片如下：qq截图20170903172753.jpg
实在是不好意思，占用你太多时间了。感谢你。
[此贴子已经被作者于2017/9/3 17:32:23编辑过]
-- 发布时间：2017/9/3 17:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:甘特图使用.table |
-- 发布时间：2017/9/3 18:46:00
--
谢谢 谢谢 ，DateTimePicker1要绑定到那里吗？设计了个按钮
If forms("窗口1").Opened=False Then
forms("窗口1").Open
End If
forms("窗口1").visible=True
只是打开的后还是没有显示
甘特图把当天的日期显示到某个位置不能实现吗？感谢 感谢