List 7-181　FormBillフォームのRefreshDataプロシージャ

---

  1： Private WithEvents g_objRec As ADODB.Recordset
  2： Private g_Order As String
  3： 
  4： ' 絞り込みのためのデータ
  5： Private g_CUSTOMERID As Variant
  6： Private g_BILLSTATUS As FILTER_BILL
  7： Private g_startMADEDATE As Variant
  8： Private g_endMADEDATE As Variant
  9： Private g_startSUBMITDATE As Variant
 10： Private g_endSUBMITDATE As Variant
 11： 
 12： Private Sub RefreshData()
 13：     ' データグリッドに表示されているデータを最新の情報に更新する
 14：     Dim objBill As Business.Bill
 15：     
 16：     ' データベースに接続して最新の情報を取得し，
 17：     ' データグリッドに表示する
 18：     On Error GoTo ErrHandle
 19：     
 20：     Set objBill = CreateObject("Business.Bill")
 21：     If CHK_FILTER.Value = 1 Then
 22：         ' ［絞り込み］にチェックが付いている場合
 23：         Set g_objRec = objBill.GetBills(g_CUSTOMERID, g_BILLSTATUS, g_startMADEDATE, _
   　                                         g_endMADEDATE, g_startSUBMITDATE,_endSUBMITDATE)
 24：     Else
 25：         ' ［絞り込み］にチェックが付いていない場合
 26：         Set g_objRec = objBill.GetBills(Null, FILTER_BILL_ALL, Null, Null, Null, Null)
 27：     End If
 28：     
 29：     Set DGrid_Bill.DataSource = g_objRec
 30：     
 31：     g_objRec.Sort = g_Order
 32：     
 33：     DGrid_Bill.Refresh
 34：     
 35：     Set objBill = Nothing
 36：     
 37：     Exit Sub
 38：     
 39： ErrHandle:
 40：     ' ビジネスオブジェクトの呼び出しに失敗
 41：     MsgBox Err.Description, vbOKOnly, "サーバーとの接続に失敗"
 42：     Set objBill = Nothing
 43：     Set g_objRec = Nothing
 44：     
 45：     ' 絞り込み設定を解除する
 46：     CHK_FILTER.Value = 0
 47： End Sub