If DrawGannt = False Then
Functions.Execute("BuildGanttTable") \'甘特图代码十二分之一
Dim dt As Date = Date.Today.AddDays( -21 ) \'进度条位置 这一条感觉没有被执行,
Dim t = e.Form.controls("Table9").Table
Dim name = dt.Year & "年" & dt.Month & "月_" & dt.Day & "月_" & dt.Day & "_" & right(Format(dt, "dddd"), 1) \'有星期天 是不是这里错了呀?
\'Dim name = dt.Year & "年" & dt.Month & "月_" & dt.Day & split("_")(0)
If t.Cols.contains(name) Then
t.Select(0,t.Cols.Count-1,0,t.Cols.Count-1)
t.Select(0, t.cols(name).Index)
End If
For i As Integer = 0 To t.DataTable.basetable.rows.count-1
Dim dr = t.DataTable.basetable.rows(i)
Dim r As Row = Tables("计划表窗口_Table4").Rows(i)
Dim str As String = ""
For Each fdr As DataRow In DataTables("记事表").Select("事件日期<=#" & Date.Today.AddDays(-30) & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\' and 处理状态=\'未处理\'")
str &= fdr("事件日期") & ","
Next
dr.RowError = str.trim(",")
Next
DrawGannt = True
Else
DrawGannt = False
End If