datagrid sıralayıcı

Aug 13,2008 00:00 by RubeNiS

Datagrid nesnesindeki sütunların başlığına tıklatıldığında A dan Z ye veya Z den A ya sıralama yapmak mümkündür.

Bunun için forma bir Datagrid nesnesi, bir Textbox ekleyip datagridin DblClick olayına aşağıdaki kodu eklemeniz yeterli olacaktır. Girişti Text1.Text =1 olsun.

Private Sub DBGrid1_DblClick()
Dim str As String

str = DBGrid1.Columns(DBGrid1.SelStartCol).DataField

If Text1.Text = "1" Then
    Data1.RecordSource = "select * from KAYITLAR ORDER BY [" & str & "] ASC "
    Text1.Text = "2"
    Data1.Refresh
    DBGrid1.Refresh
Exit Sub
End If

If Text1.Text = "2" Then
    Data1.RecordSource = "select * from KAYITLAR ORDER BY [" & str & "] DESC"
    Text1.Text = "1"
    Data1.Refresh
    DBGrid1.Refresh
Exit Sub
End If
End Sub