我想实现开单时根据客户和商品,自动输入上次该客户上次采购该商品的价格,若第一次采购则自动为批发价
Dim tt As DataRow = DataTables("出库明细").sqlfind("[客户名称] = '" & e.DataRow("客户名称") & "' and [商品名称] = '" & e.DataRow("商品名称") & "' And [单位] <> '" & e.DataRow("副单位") & "'","业务日期 desc",1)
If tt Is Nothing Then
MessageBox.show(1)
e.DataRow("单价") = sp("批发价")
Else
e.DataRow("单价") = tt("单价")
End If
为什么总是找不到