Sort Data pada MsFlexgrid dengan "meng-klik" judul kolomnya

Baca Juga

Ternyata Flexgrid bisa di-"sort" juga, nggak cuma datagrid atau dbgrid saja yang bisa di sort. Pagi-pagi googling nemu ni codenya, dapat Anda baca di link ini , sangat sederhana akan tetapi ada code-code tertentu yang belum familiar bagi pemula seperti saya.

Dalam contoh dari link diatas, untuk memasukkan nilai ke flexgrid digunakan cara Randomize, selain itu dapat dilakukan dengan menampilkan isi database, atau export dari data lain

Memasukkan nilai ke dalam flexgridBerikut code Randomize-nya :

Private Sub Form_Load()
    Dim Str As String
    Dim i As Integer
    Dim j As Integer

    i = 0: j = 0
    MSFlexGrid1.Rows = 1
    Randomize
    For i = 1 To Int(Rnd() * 10) + 1
        Str = ""
        For j = 1 To 10
            Str = Str & Chr(65 + Int(Rnd() * 26))
        Next
        MSFlexGrid1.AddItem Int(Rnd() * 100) & vbTab & Str
    Next
End Sub

Code Sort Data untuk MSFlexgrid

Sub FlexSort(Mode As String)
    If MSFlexGrid1.Row = 1 Then

       If MSFlexGrid1.MouseCol = 0 Then 'kolom pertama (0)
            MSFlexGrid1.Col = 0
            If Mode = "A" Then
                MSFlexGrid1.Sort = flexSortNumericAscending
            Else
                MSFlexGrid1.Sort = flexSortNumericDescending
            End If

        ElseIf MSFlexGrid1.MouseCol = 1 Then  'kolom kedua(1)
            MSFlexGrid1.Col = 1
            If Mode = "A" Then
                MSFlexGrid1.Sort = flexSortStringAscending
            Else
                MSFlexGrid1.Sort = flexSortStringDescending
            End If
        End If

    End If
End Sub

 Kode diatas tentunya dapat Anda sederhanakan untuk jumlah kolom yang sangat banyak.
  
Sort Ascending dengan click kolom

Private Sub MSFlexGrid1_Click()
    Call FlexSort("A")
End Sub

Sort Descending dengan Double-click kolom

Private Sub MSFlexGrid1_DblClick()
    Call FlexSort("D")
End Sub

Download source code :

DOWNLOAD