List 7-116　FormSlipフォームのRefreshDataプロシージャ

---

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