感谢 老师 这样是对的吗?就把年月改为红色的那种。
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.ToString(Globalization.CultureInfo("en-us") "MMMM", new System.) & "_" & left(dt.DayOfWeek.ToString(), 3) '星期天为英语缩写
'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
此主题相关图片如下:搜狗截图19年09月03日1101_1.jpg
cl.width = 60
'cl.Height = 60
Next
Functions.Execute("AddGanttRows")
Tables("计划表窗口_Table9").ResumeRedraw() '甘特图代码十二分之一
[此贴子已经被作者于2019/9/3 11:15:21编辑过]