- 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=72326)
-- 发布时间：2015/7/28 13:26:00
-- [求助]绘制甘特图总是出现错误怎么解决啊
此主题相关图片如下：进度甘特图出现的错误.png
-- 发布时间：2015/7/28 14:08:00
--
上传出错的项目。
-- 发布时间：2015/7/28 15:14:00
--
以下是引用大红袍在2015/7/28 14:08:00的发言：
上传出错的项目。
上传出错的项目。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:安排 - 副本.table |
已经上传，谢谢老师先！
-- 发布时间：2015/7/28 15:50:00
--
Dim tb1 As Table = Tables("甘特图")
Tables("进度甘特图_Table2").StopRedraw()
Dim StartDate As Date =tb1.Compute("Min(阶段1)", "阶段1 is not null")
Dim EndDate As Date = tb1.Compute("Max(阶段归档2)")
For Each c As Col In tb1.Cols
If c.Name.StartsWith("阶段") Then
Dim temp As Date = tb1.Compute("Min(" & c.Name & ")", c.name & " is not null")
If temp <> Nothing AndAlso temp < startDate Then
startDate = temp
End If
temp = tb1.Compute("Max(" & c.Name & ")")
If temp > EndDate Then
EndDate = temp
End If
End If
Next
Dim dt1 As Date = StartDate
Dim dt As Date = dt1.AddDays(-5)
Dim Builder As New DataTableBuilder("统计")
Do
Dim nm As String = dt.Year & "年" & dt.Month & "月_" & dt.Day
Builder.Adddef(nm,Gettype(String),1)
dt = dt.Adddays(1)
If dt > Enddate Then
Exit Do
End If
Loop
Tables("进度甘特图_Table2").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("进度甘特图_Table2").Cols
cl.width = 20
Next
Functions.Execute("AddGanttRows")
Tables("进度甘特图_Table2").ResumeRedraw()
[此贴子已经被作者于2015/7/28 15:49:51编辑过]
-- 发布时间：2015/7/28 15:50:00
--
老师还在么！
-- 发布时间：2015/7/28 15:52:00
--
自己看4楼
-- 发布时间：2015/7/28 17:03:00
--
看到了，谢谢老师