List 7-191　FormBillフォームのBTN_FILTER_Clickプロシージャ

---

  1： Private Sub BTN_FILTER_Click()
  2：     ' ［絞り込み設定］ボタンが押されたときの処理
  3：     If FormBillFilter.SetFilter(g_CUSTOMERID, g_BILLSTATUS, _
   　                                 g_startMADEDATE, g_endMADEDATE, _
   　                                 g_startSUBMITDATE, g_endSUBMITDATE) 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