DataTables("表D").DeleteFor("")
Dim b As New GroupTableBuilder("统计表1", DataTables("表B"))
b.Groups.AddDef("项目ID") '
b.Groups.AddDef("项目") '
b.Totals.AddDef("天数") '
b.Totals.AddDef("计划运动量") '
Tables("窗口1_Table4").DataSource = b.BuildDataSource() '
For Each r As Row In Tables("窗口1_Table4").Rows
Dim dr2 As DataRow = DataTables("表B").Find("项目ID='" & r("项目ID") & "' and 项目='" & r("项目") & "'", "开始日期")
Dim d1 As Date = dr2("开始日期")
Dim cnt As Integer = r("天数")
Dim zs As Integer = r("计划运动量")
Dim dr As DataRow
Dim nr As Row
Do While cnt > 0
dr = DataTables("表A").find("日期=#" & d1 & "# and (星期 in ('星期六','星期日') or 节假 is not null)")
If dr Is Nothing Then
nr = Tables("表D").addnew
nr("项目ID") = r("项目ID")
nr("项目") = r("项目")
nr("日期") = d1
nr("计划运动量") = zs
nr("日运动量") = dr2("日运动量")
cnt -= 1
End If
d1 = d1.adddays(1)
Loop
Next
加好友 
发短信
Post By：2025/1/3 15:31:00 [显示全部帖子]
