rr1 = Tables("算学校" & tt2).AddNew
rr1("学校")="全部"
rr1(s2(tt2-1) & "_总人数") = Tables("算学校" & tt2).Aggregate(aggregateenum.sum,0,pp1,nn1-1,pp1)
rr1(s2(tt2-1) & "_及格人数") = Tables("算学校" & tt2).Aggregate(aggregateenum.sum,0,pp2,nn1-1,pp2)
rr1(s2(tt2-1) & "_良好人数") = Tables("算学校" & tt2).Aggregate(aggregateenum.sum,0,pp3,nn1-1,pp3)
rr1(s2(tt2-1) & "_优秀人数") = Tables("算学校" & tt2).Aggregate(aggregateenum.sum,0,pp4,nn1-1,pp4)
rr1(s2(tt2-1) & "_及格率") = rr1(s2(tt2-1) & "_及格人数")/rr1(s2(tt2-1) & "_总人数")
rr1(s2(tt2-1) & "_良好率") = rr1(s2(tt2-1) & "_良好人数")/rr1(s2(tt2-1) & "_总人数")
rr1(s2(tt2-1) & "_优秀率") = rr1(s2(tt2-1) & "_优秀人数")/rr1(s2(tt2-1) & "_总人数")
这三行错,出现列只读错误,加入代码 Tables("算学校" & tt2).cols(s2(tt2-1) & "_及格率").AllowEdit=true 仍出错,如何修改