MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW

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.

Sumber