老师，我下面的代码不能正确计算数据，麻烦看一下是哪里有问题？？
Select Case e.DataCol.Name
Case "合同编号","上一结息日期"
Dim dr As DataRow = e.DataRow
Dim tp As TimeSpan
If dr.IsNull("合同编号") OrElse dr.IsNull("上一结息日期") Then
dr("上一结息日本金余额") = Nothing
dr("当前日期") = Nothing
Else
dr("当前日期") = Date.today
If dr("上一结息日期") < dr("当前日期") Then
e.DataRow("上一结息日本金余额") = DataTables("贷款放款明细表").Compute("Sum(放款金额)","[放款日期] <= #" & e.DataRow("上一结息日期") & " # ") - DataTables("偿还本金明细表").Compute("Sum(还款金额)","[还款日期] <= #" & e.DataRow("上一结息日期") & "# ")
Else
e.DataRow("上一结息日本金余额") = DataTables("贷款放款明细表").Compute("Sum(放款金额)","[放款日期] <= #" & e.DataRow("当前日期") & " # ") - DataTables("偿还本金明细表").Compute("Sum(还款金额)","[还款日期] <= #" & e.DataRow("当前日期") & "#") - DataTables("还本计划表").Compute("Sum(计划还本金额)","[计划还款日期] >= #" & e.DataRow("当前日期") & "'# AND [计划还款日期] <= #" & e.DataRow("上一结息日期") & "#")
End If
End If
End Select
加好友 
发短信
Post By：2016/11/4 19:58:00 [显示全部帖子]
