此主题相关图片如下:1.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/20146171471733824.jpg)
此主题相关图片如下:2.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/20146171471726367.jpg)
此主题相关图片如下:3.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/20146171471796543.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编辑过]