Mas Nando, thanks atas koding program menampilkan dan mengurutkan listview.
Tapi untuk field nomor antrian kok ga bisa urut descending dari 55 ke 0, malah
dari 9 ke 0. Sorry, kalo ngerepotin.
'****************************************************************
' ListView1_ColumnClick
'----------------------------------------------------------------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As
MSComctlLib.ColumnHeader)
Dim itemList As MSComctlLib.ListItem
If ColumnHeader.Text = "Tanggal Daftar" Then
For Each itemList In ListView1.ListItems
itemList.SubItems(1) = Format(itemList.ListSubItems(1).Tag, "yyyymmdd")
Next itemList
End If
With ListView1
.SortKey = ColumnHeader.Index - 1
.Sorted = True
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
End With
'mengurutkan field TglDaftar
If ColumnHeader.Text = "Tanggal Daftar" Then
For Each itemList In ListView1.ListItems
itemList.SubItems(1) = CDate(itemList.ListSubItems(1).Tag)
Next itemList
End If
'mengurutkan field NoAntrian
If ColumnHeader.Text = "Nomor Antrian" Then
For Each itemList In ListView1.ListItems
itemList.SubItems(1) = InvNumber(itemList.ListSubItems(1).Tag)
Next itemList
End If
End Sub
________________________________________________________
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]
