سؤال عن ترتيب البيانات في datagrid

<_<

أخي الكريم جرب الكود التالي

Private Sub grdDataGrid_HeadClick(ByVal ColIndex As Integer)

    Dim strColName As String
    Static bSortAsc As Boolean
    Static strPrevCol As String
     
    strColName = grdDataGrid.Columns(ColIndex).DataField

    If strColName = strPrevCol Then

        If bSortAsc Then
            adoPrimaryRS.Sort = strColName & " DESC"
            bSortAsc = False
        Else
            adoPrimaryRS.Sort = strColName
            bSortAsc = True
        End If

    Else
        adoPrimaryRS.Sort = strColName
        bSortAsc = True
    End If

     
    strPrevCol = strColName
End Sub