List 7-89　FormStockフォームのDGrid_Stock_HeadClickプロシージャ

---

  1： Private Sub DGrid_Stock_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_Stock.Columns(ColIndex).DataField
 14：     Else
 15：         ' bdescがFalseのときには、降順で並べる
 16：         g_Order = DGrid_Stock.Columns(ColIndex).DataField & " DESC"
 17：     End If
 18：     
 19：     g_objRec.Sort = g_Order
 20：     
 21：     bDesc = Not bDesc
 22： End Sub