以下代码加在“收费明细表”的datacolchanged事件上，要实现当收费明细表有数据变化时，学年收费名单表根据学号和学年自动对收费明细表的各项收费进行求和汇总。
Dim dr As Row=Tables("学年收费名单").Current
Dim sum1,sum2,sum3,sum4 As Integer
sum1 = DataTables("收费明细").Compute("sum(实收学费)", "学号='" & dr("学号") & "' And 学年='" & dr("学年") & "'")
dr("实收学费") = sum1
sum2 = DataTables("收费明细").Compute("sum(实收住宿费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
dr("实收住宿费") = sum2
sum3 = DataTables("收费明细").Compute("sum(实收书本费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
dr("实收书本费") = sum3
sum4 = DataTables("收费明细").Compute("sum(实收保险费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
dr("实收保险费") = sum4
请问代码错在那，如何修改？
加好友 
发短信
Post By：2018/10/11 17:08:00 [只看该作者]
