Sorting DataGrid pada VB 6

Posted: April 29, 2008 in 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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s