| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]窗口绑定SQL查询表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161051) |
| -- 作者：kenmen -- 发布时间：2021/3/4 10:16:00 -- [求助]窗口绑定SQL查询表问题 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/3/4 10:17:00 -- 去掉单引号：ORDER_DOC_D_ID Where a.DOC_NO = ?" |
| -- 作者：kenmen -- 发布时间：2021/3/4 10:19:00 -- 可以了，谢谢老师！ 这个方法第一次用，我以为跟『Cexp』那个一样～
|
| -- 作者：有点蓝 -- 发布时间：2021/3/4 10:20:00 -- 说明帮助没有认真看 |