هذه طريقة الفرز التصاعدي والتنازلي في الداتا قريد

بحثت كثيرا في المنتديات العربية عن طريقة الفرز التصاعدي والتنازلي في الداتا قريد ولم أجد ثم قمت بالبحث في المواقع الانجليزية ووجدت الكود أرفقه لمن يريد الاستفادة منه حيث يمكنك الفرز تصاعديا أو تنازليا لأي عمود تضغط عليه في الداتا قريد. كل ما عليك هو نسخ الكود ووضعه في موقعه . مع تمنياتي للجميع بالتوفيق.

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

' Sort on the clicked column.

Dim rs As ADODB.Recordset

Set rs = Adodc1.Recordset

If rs.Sort <> DataGrid1.Columns(ColIndex).DataField & " ASC" Then

' Sort in ascending order; this block is executed if the

' data isn't sorted, is sorted on a different field,

' or is sorted in descending order.

rs.Sort = DataGrid1.Columns(ColIndex).DataField & " ASC"

Else

' Sort in descending order.

rs.Sort = DataGrid1.Columns(ColIndex).DataField & " DESC"

End If

' No need to refresh the contents of the DataGrid.

End Sub

علما أنني نزلت هذه المشاركة باسم المجازف في منتدى فيجوال بيسك.