Dim dt As Table = Tables("资金预算表")
dt.StopRedraw
Dim d As Date = Date.Today
Dim nr As Row
For Each dr As DataRow In DataTables("工程主表").DataRows
Dim sd As Date = dr("履约开始日期")
Dim ed As Date = sd.AddYears(5)
Dim i As Integer = 5
Do While ed >= d
nr = dt.InsertNew
nr("工程编号") = dr("工程编号")
nr("应结工程款日期") = ed
nr("需付资金") = dr("镇级应付价") * dr("第" & i & "年")
i -= 1
ed = ed.AddYears(-1)
Loop
Dim dr2 As DataRow = DataTables("支付明细表").Find("工程编号='" & dr("工程编号") & "' and 余额 < 0","支付日期 desc")
If dr2 IsNot Nothing Then
nr = dt.InsertNew
nr("工程编号") = dr("工程编号")
nr("应结工程款日期") = ed.AddYears(1)
nr("需付资金") = dr2("余额") * -1
End If
Next
dt.ResumeRedraw
加好友 
发短信
Post By：2020/3/4 10:30:00 [只看该作者]
