Menyeleksi Crystal Report 8.5 dengan kriteria atau nilai tertentu yang dipilih dengan menyentang listview (tanya code)

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

bismillaahirrahmaanirrahiim

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

Assalamu'alaikum warahmatullahi wabarakatuh

Tanya :
Salam knal mas nur
Saya bleh tanya sdikit ttg cr?
Sbuah tbel database sya tampilkan di listview vb yg dlmny dberi checkbox, yg sya tanykan bagaimana menmpilkan hanya data yg d check/centang pd listview saja yg d muncul d crystal report?
Sbelumny sy mencoba tp seluruh data yg tampil atau data trakhir sja yg muncul d cr,apakah ada yg slh dngan selectionformula ny ?
Sya msh pemula, Mohon pencerahanny kang, trimaksih sblumny

erwin****@yahoo.com

Jawab  :

Untuk menyelesaikan kasus diatas adalah dengan menuliskan selection formula sesuai dengan listview yang di centang. Hal tersebut dapat dilakukan dengan menggabungkan metode looping ( for next ), logika (hanya mengambil nilai yang di centang) dan penulisan selection formula dengan "OR" untuk menampilkan report dengan beberapa pilihan (sesuai listview yang dicentang).

kurang lebih penampakannya seperti ini :

kurang lebih codenya seperti ini :

Private Sub Command1_Click()
dim stringformula as string
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
           stringformula = stringformula & "{products.productid}='" & ListView1.ListItems(i).Text & "' OR "   
    End If
Next i

If Not stringformula = "" Then ' bila ada yang dicentang
    stringformula = Mid(stringformula, 1, Len(stringformula) - 3) 'menghilangkan 'OR' diakhir stringformula
Else ' tidak ada yang dicentang
    stringformula = "{products.productid}=''"
End If
        crt1.Reset
        crt1.Destination = crptToWindow
       
 
        crt1.ReportFileName = app.path + "\contoh.rpt"
        crt1.selectionFormula = stringformula
        crt1.PageZoom 2
        crt1.WindowState = crptMaximized
        crt1.WindowShowGroupTree = False
        crt1.RetrieveDataFiles
        crt1.Action = 1

End Sub

Saya sertakan juga link download sourcecodenya : http://www.ziddu.com/download/19345964/cr85checlistlistview.rar.html (agak berbeda sedikit code-codenya, tapi maksudnya sama). Mudah-mudahan bisa membantu.

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 Menyeleksi Crystal Report 8.5 dengan kriteria atau nilai tertentu yang dipilih dengan menyentang listview (tanya code), Diterbitkan oleh scodeaplikasi pada Rabu, 09 Mei 2012. 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.