再仔细看看,简直一塌糊涂
……
Else
Dim fdr As DataRow = DataTables("报价单").find("往来单位='" & ds("客户全称") & "' and 货物编码='" & ds("货料编码") & "' and 终止日期>'" & ds("送货日期") & "'")
If fdr IsNot Nothing AndAlso ds.Isnull("会计年度")
If ds("数量")<=499 AndAlso ds("客户全称") = "东莞市***安防科技有限公司" OrElse ds("客户全称") = "广州**科技股份有限公司" Then
ds("结算单价") = fdr("单价")
ds("结算金额") = ds("数量")*ds("结算单价")
ds("业务员") = fdr("业务员")
ElseIf ds("数量") > 500 AndAlso ds("数量") <= 4999 AndAlso ds("客户全称") = "东莞市**安防科技有限公司" OrElse ds("客户全称") ="广州**科技股份有限公司" Then
ds("结算单价") = fdr("单价500至4999")
ds("结算金额") = ds("数量")*ds("结算单价")
ds("业务员") = fdr("业务员")
ElseIf ds("数量") > 4999 AndAlso ds("客户全称") ="东莞市**安防科技有限公司" OrElse ds("客户全称") ="广州**科技股份有限公司" Then
ds("结算单价") = fdr("单价5000以上")
ds("结算金额") = ds("数量")*ds("结算单价")
ds("业务员") = fdr("业务员")
Else
ds("结算单价") = fdr("单价")
ds("结算金额") = ds("数量")*ds("结算单价")
ds("业务员") = fdr("业务员")
End If
End If
End If