主题：这个公式怎么计不出结果呢

 

这个公式怎么计不出结果呢？哪里出问题？？

Dim u As Table = Tables("资金")

For i As Integer = 0 To u.Rows.count - 1

    Dim dr As Row = u.Rows(i)

    Dim fdt As DataRow = DataTables("应付").SQLfind("单号='" & u.Rows(i)("单号") & "'")

    If fdt IsNot Nothing Then

        fdt("已付货款") = DataTables("资金").sqlCompute("Sum(支出)", "[单号] ='" & fdt("单号") & "'") - DataTables("资金").sqlCompute("Sum(收入)", "[单号] ='" & fdt("单号") & "'")

    End If

   

    Dim fdz As DataRow = DataTables("应收").SQLfind("单号='" & u.Rows(i)("单号") & "'")

    If fdz IsNot Nothing Then

        fdz("已收货款") = DataTables("资金").SQLCompute("Sum(收入)", "[单号] ='" & fdz("单号") & "'") - DataTables("资金").SQLCompute("Sum(支出)", "[单号] ='" & fdz("单号") & "'")

    End If

Next