以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不能正确计算数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92493)
--  作者：爱相随
--  发布时间：2016/11/4 19:58:00
--  不能正确计算数据
老师，我下面的代码不能正确计算数据，麻烦看一下是哪里有问题？？
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
--  作者：wyz20130512
--  发布时间：2016/11/4 21:15:00
--  
从代码上看应该是没问题的，应该是商业逻辑问题。
--  作者：爱相随
--  发布时间：2016/11/7 9:31:00
--  
谢谢老师，我自己再看看，谢谢