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