下面是我的全部代码：
Dim jb As New SQLJoinTableBuilder("当前年度维护计划","计划维护记录")
jb.C
jb.AddTable("计划维护记录","任务编号","计划维护任务","任务编号")
jb.Filter = "[计划执行日期] >= #1/1/2019# And [计划执行日期]<= #12/31/2019#"
jb.AddCols("{计划维护任务}.任务编号","任务名称","设备台数","设备编号","计划执行日期", "{计划维护记录}.周期","{计划维护记录}.id")
jb.AddExp("维护台次数","12 / {计划维护记录}.周期 * {计划维护任务}.设备台数")
jb.Build()
'MainTable = Tables("当前年度维护计划")
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("任务编号", Gettype(String), 32)
dtb.AddDef("设备编号", Gettype(String), 100)
dtb.AddDef("周期", Gettype(String), 32)
dtb.AddDef("计划执行日期", Gettype(Date))
dtb.Build()
For Each dd As String In DataTables("当前年度维护计划").GetValues("任务编号")
Dim dr1 As DataRow = DataTables("统计").AddNew()
dr1("任务编号") = dd
dr1("计划执行日期") = DataTables("当前年度维护计划").find("任务编号='dd'","计划执行日期")
output.show(dd)
output.show(dr1("计划执行日期"))
Next
MainTable = Tables("统计")
加好友 
发短信
Post By：2019/5/19 23:56:00 [显示全部帖子]
