Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select a.DOC_NO aDocNO,a.SALES_ORDER_DOC_ID aSalesOrderDocID,b.SequenceNumber bSequenceNumber,b.ITEM_TYPE bItemType,b.ITEM_ID bItemID,b.ITEM_DESCRIPTION bItemDescription,b.ITEM_SPECIFICATION bItemSpecification,b.BUSINESS_QTY bBusinessQty,b.PRICE_QTY bPriceQty,b.SALES_ORDER_DOC_D_ID bSalesOrderDocDID,c.BUSINESS_QTY cBusinessQty,c.PRICE_QTY cPriceQty,c.INVENTORY_QTY cInventoryQty,c.SALES_ORDER_DOC_SD_ID cSalesOrderDocSDID Fro m SALES_ORDER_DOC a Left Join SALES_ORDER_DOC_D b on b.SALES_ORDER_DOC_ID = a.SALES_ORDER_DOC_ID Left Join SALES_ORDER_DOC_SD c on c.SALES_ORDER_DOC_D_ID = b.SALES_ORDER_DOC_D_ID Where a.DOC_NO = '?'"
cmd.Parameters.Add("@订单单号",tb1.Value)
Dim dt As DataTable = cmd.ExecuteReader()
Tables("窗口3_Table1").DataSource = dt
[此贴子已经被作者于2021/3/4 10:17:24编辑过]
加好友 
发短信
Post By：2021/3/4 10:16:00 [只看该作者]
