此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2014/6/17 14:07:00 [显示全部帖子]
