Dim dr As DataRow
For Each s As String In DataTables("表A").GetValues("活动名称")
dr = DataTables("表B").AddNew
dr("活动") = s
dr("金额") = DataTables("表A").Compute("sum(金额)","活动名称='" & s & "'")
dr("活动开始日期") = DataTables("表A").Compute("min(日期)","活动名称='" & s & "'")
dr("活动截止日期") = DataTables("表A").Compute("max(日期)","活动名称='" & s & "'")
Next