SORTING DATA di CRYSTAL REPORTS 8.5 juga Lewat Coding di Visual Basic 6
Melanjutkan Crystal Reports dari tulisan sebelumnya, tapi nyambung ga ya??? Gara-garanya dalam satu Form diperlukan urut data ini-itu, pertama-tama sih tiap Sort yang akan dicetak dibuatkan file rpt-nya satu-satu, dipikir-pikir akhirnya kok koleksi rpt buanyaakkk banget yahhh.
Akhirnya nemukan metode sorting via coding di Visual Basic. Lebih hemat file rpt-nya, malah satu file rpt mau disorting fieldsnya banyak.
Sorting di Reports Design pada Crystal Reports
Klik Menu Report -> Sort Records…
Di listbox sebelah kiri pilih/klik Field yang diurutkan kemudain tekan ADD, juga tentukan Sort Direction Ascending (urut dari kecil ke besar) atau Descending (urut dari besar ke kecil).
Data yang diurutkan ditampilkan di listbox sebelah kanan. Urutan list merupakan prioritas pengurutan fieldsnya, jadi setelah nomer faktur diurutkan, Tgl masuk diurutkan hingga fields terakhir yang dipilih, sedangkan tulisan A, adalah Ascending.
Sorting Crystal Reports lewat Visual Basic 6.0
Sorting bisa dilakukan juga lewat coding di Visual Basic 6.0. Coba lihat gambar di atas di listbox kanan, bila dituliskan coding VB nya akan seperti di bawah ini:
Private Sub cmdCetakLast_Click()
CR1.SelectionFormula = “”
CR1.ReportFileName = “\\Program\BrgMsk.rpt”
CR1.SortFields(0) = “+{HTrans_brg_masuk.No_faktur_masuk}”
CR1.SortFields(1) = “+{HTrans_brg_masuk.Tgl_masuk}”
CR1.SortFields(2) = “+{HTrans_brg_masuk.Nama_supp}”
CR1.SortFields(3) = “+{Qhrgmsk.Nama_brg}”
CR1.WindowState = crptMaximized
CR1.RetrieveDataFiles
CR1.Action = 1
End Sub
Angka di belakang CR1.SortFields adalah prioritas pengurutan fieldsnya, sedangkan metode Ascending di wakili tanda + (plus) dan Descending diwakili tanda – (minus).
Semoga membantu.
