加好友 发短信
等级:童狐
帖子:248
积分:1842
威望:0
精华:2
注册:2018/1/16 20:53:00
|
Post By:2020/7/12 11:30:00 [只看该作者]
cmd6.CommandText = "S elect top 1 [FPrice] From ({ICStockBillEntry} Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {ICStockBillEntry}.[FItemID]) Inner JOIN {ICStockBill} ON {ICStockBill}.[FInterID] = {ICStockBillEntry}.[FInterID] Where {ICStockBill}.[FBillNo] like '%WIN%' and {ICStockBillEntry}.[FItemID]) ='" & rrr("PartNo") &"' order by {ICStockBill}.[FDate] desc" Dim Values6 = cmd6.ExecuteValues If Values6.Count > 0 Then rrr("TotalVatRrice") = Values6("FPrice") End If
|
|