老师 可以吧甘特图的有序号的行的高度也编辑上去吗?感谢 感谢 Dim tbl As Table = Tables("计划表窗口_Table4")
Tables("计划表窗口_Table9").StopRedraw()
Dim s1 As Date = tbl.Compute("Min(计划_开始日期)")
Dim s2 As Date = tbl.Compute("min(进行_开始日期)")
Dim e1 As Date = tbl.Compute("max(计划_完成日期)")
Dim e2 As Date = tbl.Compute("Max(进行_完成日期)")
Dim StartDate As Date = iif(s1<s2, s1, s2)
Dim EndDate As Date = iif(e1>e2, e1, e2)
Dim dt As Date = StartDate
Dim Builder As New DataTableBuilder("统计")
Do
Dim nm As String = dt.Year & "year" & dt.Month & "month_" & dt.Day & "_" & left(dt.DayOfWeek.ToString(), 3) '星期天为英语缩写
Builder.Adddef(nm,Gettype(String),1)
dt = dt.Adddays(1)
If dt > Enddate Then
Exit Do
End If
Loop
Tables("计划表窗口_Table9").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("计划表窗口_Table9").Cols
cl.width = 23
'cl.Height = 60
Next
Functions.Execute("AddGanttRows")
Tables("计划表窗口_Table9").ResumeRedraw() '