Sorting DataGrid pada VB 6

Untuk melakukan sorting pada datagrid anda dapat menggunakan event HeadClick milik datagrid tersebut, codingnya sangat minim dan simple tapi sangat bermanfaat. Pada head click pertama data akan diurutkan secara Ascending, kemudian pada click kedua dikolom yang sama data akan diurutkan secara Descending. Kelemahan metode sistem ini yaitu jika datagrid mempunyai kolom yang untuk melihatnya kita harus scroll kesamping, pada saat kita mengurutkan kolom tersebut maka kita akan dibawa kembali ke kolom pertama, jadi untuk melihat kolom yang kita urutkan tadi kita harus scroll kesamping ulang. ex: * umpama kita punya Recordset dengan nama rs  Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) If rs.Sort <> DataGrid1.Columns(ColIndex).DataField & " ASC" Then rs.Sort = DataGrid1.Columns(ColIndex).DataField & " ASC" Else rs.Sort = DataGrid1.Columns(ColIndex).DataField & " DESC" End If End Sub Daftar Pustaka: Microsoft Press, Programming Microsoft Visual Basic 6.0

Filed under: VB 6