Dim cmd6 As new SQLCommand
cmd6.C
cmd6.CommandText = "S elect max({ICStockBill}.[FDate]) 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") &"\'"
Dim Values6 = cmd6.ExecuteValues
If Values6.Count > 0 Then
rrr("TotalVatRrice") = Values6("FPrice")
End If
此主题相关图片如下:捕获.png