List 7-18　FormCustomerフォームのDGrid_Customer_HeadClickプロシージャ

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