List 7-158　FormEditSlipDetailフォームのEditSlipDetailプロシージャ

---

  1： Public Sub EditSlipDetail(ID As Long, _
   　                           DETAILID As Variant, _
   　                           PRODUCTID As Variant, _
   　                           NUMBER As Variant, _
   　                           UNITPRICE As Variant, _
   　                           Price As Variant, _
   　                           MEMO As Variant)
  2：     ' 既存の明細を編集する
  3：     ' 【引数】
  4：     '   ID = 伝票番号
  5：     '   DETAILID = 編集しようとしている明細の明細番号
  6：     '   PRODUCTID = 編集しようとしている明細の製品番号
  7：     '   NUMBER = 編集しようとしている明細の数量
  8：     '   UNITPRICE = 編集しようとしている明細の単価
  9：     '   PRICE = 編集しようとしている明細の価格
 10：     '   MEMO = 編集しようとしている明細の摘要
 11：     
 12：     SlipID = ID
 13：     SlipDetailID = DETAILID
 14：     
 15：     ' 明細情報の現在の情報をテキストボックスに設定
 16：     TXT_ID.Text = SlipDetailID
 17：     FillCombo CLng(PRODUCTID)
 18：     TXT_NUMBER.Text = NUMBER
 19：     TXT_UNITPRICE.Text = UNITPRICE
 20：     TXT_PRICE.Text = Price
 21：     
 22：     If Not IsNull(MEMO) Then
 23：         TXT_MEMO.Text = MEMO
 24：     Else
 25：         TXT_MEMO.Text = ""
 26：     End If
 27： End Sub