List 7-198　FormBillフォームのDGrid_Bill_DblClickプロシージャ

---

  1： Private Sub DGrid_Bill_DblClick()
  2：     ' DGrid_Billデータグリッドがダブルクリックされたときには全行を選択状態にする
  3：     Dim oldbkmk As Variant
  4：     oldbkmk = g_objRec.BookMark
  5：     g_objRec.MoveFirst
  6：     While Not g_objRec.EOF
  7：         DGrid_Bill.SelBookmarks.Add g_objRec.BookMark
  8：         g_objRec.MoveNext
  9：     Wend
 10：     g_objRec.BookMark = oldbkmk
 11： End Sub