List 7-137　FilterSlipフォームのBTN_FILTER_Clickプロシージャ

---

  1： Private Sub BTN_FILTER_Click()
  2：     ' ［絞り込み設定］ボタンが押されたときの処理
  3：     If FormSlipFilter.SetFilter(g_startMADEDATE, g_endMADEDATE, _
   　                                 g_startDELIVERDATE, g_endDELIVERDATE, _
   　                                 g_IncludeOtherMade, g_filterSlip, _
   　                                 g_includedeleted, g_CUSTOMERID) Then
  4：         ' ユーザーが絞り込みの設定において［OK］ボタンを押した
  5：         ' このとき，［絞り込み］にチェックボックスにチェックを付ける
  6：         ' いったん0に設定してから1に設定するのは，
  7：         ' CHK_FILTERチェックボックスのClickイベントを発生させたいから
  8：         CHK_FILTER.Value = 0
  9：         CHK_FILTER.Value = 1
 10：     End If
 11： End Sub