|
Dim dr As DataRow = e.DataRow
Dim fdr As DataRow = DataTables("学年收费名单").find("学号='" & dr("学号") & "' And 学年='" & dr("学年") & "'")
If fdr IsNot Nothing Then
Dim sum1,sum2,sum3,sum4 As Integer
sum1 = DataTables("收费明细").Compute("sum(实收学费)", "学号='" & dr("学号") & "' And 学年='" & dr("学年") & "'")
fdr("实收学费") = sum1
sum2 = DataTables("收费明细").Compute("sum(实收住宿费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
fdr("实收住宿费") = sum2
sum3 = DataTables("收费明细").Compute("sum(实收书本费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
fdr("实收书本费") = sum3
sum4 = DataTables("收费明细").Compute("sum(实收保险费)", "学号='" & dr("学号") & "'And 学年='" & dr("学年") & "'")
fdr("实收保险费") = sum4
End If
|
加好友 
发短信
Post By：2018/10/11 17:11:00 [显示全部帖子]
