这个公式怎么计不出结果呢?哪里出问题??
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