List 6-163　FormEditSlipDetailフォームのCOMBO_PRODUCT_LostFocusプロシージャ

---

  1： Private Sub COMBO_PRODUCT_LostFocus()
  2：     ' フォーカスを失ったとき，単価に対して製品の価格を格納するようにする
  3：     Dim listIndex As Long
  4：     
  5：     listIndex = COMBO_PRODUCT.listIndex
  6：     If listIndex <> -1 Then
  7：         On Error Resume Next
  8：         g_objRec.MoveFirst
  9：         g_objRec.Find "ID=" & COMBO_PRODUCT.ItemData(listIndex), _
   　                       0, adSearchForward
 10：         If Not g_objRec.EOF Then
 11：             TXT_UNITPRICE.Text = g_objRec.Fields("PRICE").Value
 12：         End If
 13：     End If
 14： End Sub