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编辑过]
加好友 
发短信
Post By：2015/7/28 14:08:00 [显示全部帖子]
