此主题相关图片如下:1.jpg

此主题相关图片如下:2.jpg

此主题相关图片如下:3.jpg

Dim Tbl As Table = Tables("主计划")
Tables("计划甘特图_Table2").STopRedraw()
Dim STarTDaTe As Date = Tbl.CompuTe("Min(下单日期)")
Dim EndDaTe As Date = Tbl.CompuTe("Max(预计交期)")
Dim dT As Date = STarTDaTe
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()
Tables("计划甘特图_Table2").Visible=True
发布后都用不了!!!报以上错!!!
[此贴子已经被作者于2014-6-17 14:08:52编辑过]