List 7-65　FormProductフォームのDGrid_Product_HeadClickプロシージャ

---

  1： Private Sub DGrid_Product_HeadClick(ByVal ColIndex As Integer)
  2：     ' ヘッダがクリックされたときの処理
  3：     ' クリックされたヘッダ行で並べ替える
  4：     Static bDesc As Boolean
  5：     
  6：     If ColIndex < 0 Then
  7：         ' 列以外のところがクリックされたら，何もせずに戻る
  8：         Exit Sub
  9：     End If
 10：     
 11：     If bDesc Then
 12：         ' bDescがTrueのときには，昇順で並べる
 13：         g_Order = DGrid_Product.Columns(ColIndex).DataField
 14：     Else
 15：         ' bDescがFalseのときには，降順で並べる
 16：         g_Order = DGrid_Product.Columns(ColIndex).DataField & " DESC"
 17：     End If
 18：     
 19：     g_objRec.Sort = g_Order
 20：     
 21：     bDesc = Not bDesc
 22： End Sub