Bang Hidayat,
ini saya ambilkan contoh (cuplikan kode yang saya pake di program saya nama
listviewnya lvUSER)
Private Sub lvUSER_ColumnClick(ByVal ColumnHeader As
MSComctlLib.ColumnHeader)
'--+ Check & Correction code : 28 Jan 2005 - 09:07 +--
'--+ Check & Correction code : 15 Mar 2005 - 09:09 +--
Dim nIndex As Byte
nIndex = ColumnHeader.Index - 1
With lvUSER
.SortKey = nIndex
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
.Sorted = True
End With
End Sub
Semoga berguna !
Salam,
Newbie
2008/2/14 saripudin hidayat <[EMAIL PROTECTED]>:
> Dear all,
>
> Saya ingin menampilkan data dari tabel antrian dengan listview, sehingga
> ketika kita klik header listview, maka data akan urut (sort) otomotis secara
> asc berdasarkan field yang menjadi header listivew.
> Saat ini saya menggunakan data grid, tapi agak sulit diurutkan.
>
> Best Regard
> Saripudin Hidayat
>
>
> 'Listing di form_load()
> Set RsAntrian = New ADODB.Recordset
> StrSql = "select * from tbAntrian order by 1 asc"
> RsAntrian.Open StrSql, cn, adOpenDynamic, adLockOptimistic
> 'Set Adodc1.Recordset = RsPasien
> Set DataGrid3.DataSource = RsAntrian
>
> T_Syarat.Clear '
> T_Syarat.AddItem "Nomor Antrian"
> T_Syarat.AddItem "Tanggal Daftar"
> T_Syarat.AddItem "Nama Pasien"
> T_Syarat.AddItem "Kode Pasien"
> T_Syarat.AddItem "Nomor Rekam Medis"
> T_Syarat.AddItem "Umur"
> T_Syarat.AddItem "Poli"
> T_Syarat.AddItem "Nama Dokter"
> T_Syarat.AddItem "Kode Dokter"
> T_Syarat.AddItem "Spesialisasi"
>
> ________________________________________________________
> Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda!
> Kunjungi Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
>
> [Non-text portions of this message have been removed]
>
>
>
[Non-text portions of this message have been removed]
