点datagrid的head，根据所点的列重新排序记录，headclick事件怎么写？

Question

点datagrid的head，根据所点的列重新排序记录，如原来是上序，就改为降序排列，反之奕然headclick事件怎么写？

Answer 1

我这里有一个例子，你拿去改改就成：
    Static SortBy As Integer
    Dim Sort As String
    Dim Ids As String
    If RsMR.RecordCount > 0 Then
        If ColIndex <> 13 Then      '此列为备注，不能排序
            If SortBy Mod 2 = 0 Then
                Sort = " Desc"
            Else
                Sort = " Asc"
            End If
            Ids = RsMR!ID
            If RsMR.State = adStateOpen Then RsMR.Close
            RsMR.Open sql & " Order By " & Dtglist.Columns(ColIndex).DataField & Sort, ConnMain, adOpenStatic, adLockBatchOptimistic            If Not (RsMR.EOF Or RsMR.BOF) Then
                RsMR.Find "id=" & Ids, 0, adSearchForward, 1
            End If
            '重新绑定各控件的数据集
            SetDatasource
            SortBy = SortBy + 1
        End If
    End If