设置如下代码,经实验发现如运杂费列里未输入任何数据,其他列有数据,这样后台无法统计符合条件的数据,求大师们指教应如何改进代码?
Dim cmd As new SQLCommand
cmd.c
For Each dr As DataRow In DataTables("存货设置表").DataRows
cmd.CommandText = "Select sum(出仓数量 * 含税单价) - sum(运杂费) - sum(收款金额) - sum(长短款) - sum(返利) From {销售收款统计表} Where 客户名称 = '" & dr("客户名称") & "' and 对账日期 is not null and 合同录入日期 <= '" & User.ExtendedValues("结束日期") & "'"
If cmd.CommandText IsNot Nothing
dr("销售表金额") = cmd.executescalar
Else
dr("销售表金额") = 0
End If
Next