.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

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

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

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 :

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Sort Data pada MsFlexgrid dengan "meng-klik" judul kolomnya, Diterbitkan oleh scodeaplikasi pada Senin, 16 November 2009. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to