提示错误:集合已修改,可能无法执行枚举操作。
我看了之前同样问题的帖子,还是没有解决。。。不知道哪错了。。。
Dim r As Row
Dim r1 As Row
For i As Integer = 0 To 200
r = Tables(e.Form.Name & "_table1").Rows(i,True)
r("折扣_本期") = r("销售金额_本期") / r("吊牌金额_本期")
For i1 As Integer = 0 To 200
r1 = Tables(e.Form.Name & "_table1").Rows(i1,True)
If r1("年份") = r("年份")+1 And r1("周次") = r("周次") And r1("门店") = r("门店") Then
r1("销售金额_去年同期") = r("销售金额_本期")
r1("折扣_去年同期") = r("折扣_本期")
r1("小piao数_去年同期") = r("小piao数_本期")
r1("销售数量_去年同期") = r("销售数量_本期")
End If
If r1("年份") = r("年份") And r1("周次") = r("周次")+1 And r1("门店") = r("门店") Then
r1("销售金额_今年上期") = r("销售金额_本期")
r1("VIP销售金额_今年上期") = r("VIP销售金额_本期")
End If
Next
'
r("销售金额_同比") = (r("销售金额_本期") - r("销售金额_去年同期"))/r("销售金额_去年同期")
r("销售金额_环比") = (r("销售金额_本期") - r("销售金额_今年上期"))/r("销售金额_今年上期")
r("连带率_本期") = r("销售数量_本期") / r("小piao数_本期")
r("连带率_去年同期") = r("销售数量_去年同期") / r("小piao数_去年同期")
r("物单价_本期") = r("销售金额_本期") / r("销售数量_本期")
r("物单价_去年同期") = r("销售金额_去年同期") / r("销售数量_去年同期")
r("VIP销售金额_环比") = (r("VIP销售金额_本期") - r("VIP销售金额_今年上期"))/r("VIP销售金额_今年上期")
r("VIP销售金额_贡献率") = r("VIP销售金额_本期") / r("销售金额_本期")
r("销售金额_与目标差额") = r("销售金额_本期") - r("销售金额_周目标")
r("销售金额_周达成率") = r("销售金额_本期") / r("销售金额_周目标")
Next