Adodc2.Recordset.Fields(0).Value = Text1.Text
Adodc1.RecordSource = "select 商品名稱 from 商品資訊 where 商品編號='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(1).Value = Adodc1.RecordSource
Adodc1.RecordSource = "select 商品價格 from 商品資訊 where 商品編號='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(2).Value = Adodc1.RecordSource
d = InputBox("請輸入您需要的數量", "商品數量選擇")
Adodc2.Recordset.Fields(3).Value = d
總是說多步操作產生錯誤，請逐步檢查，但是錯在哪里啊，請教大神
uj5u.com熱心網友回復：
本人小白一枚uj5u.com熱心網友回復：
寫法不嚴密:Adodc2.Recordset.Fields(0).Value = Text1.Text
Adodc1.RecordSource = "select 商品名稱 from 商品資訊 where 商品編號='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(1).Value = Adodc1.Recordset(0)
Adodc1.RecordSource = "select 商品價格 from 商品資訊 where 商品編號='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(2).Value = Adodc1.Recordset(0)
d = InputBox("請輸入您需要的數量", "商品數量選擇")
Adodc2.Recordset.Fields(3).Value = d
uj5u.com熱心網友回復：
寫法還可簡化：Adodc2.Recordset.Fields(0).Value = Text1.Text
Adodc1.RecordSource = "select 商品名稱,商品價格 from 商品資訊 where 商品編號='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(1).Value = Adodc1.Recordset(0)
Adodc2.Recordset.Fields(2).Value = Adodc1.Recordset(1)
d = InputBox("請輸入您需要的數量", "商品數量選擇")
Adodc2.Recordset.Fields(3).Value = d
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/92502.html
標籤：控件