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 stringformulaElse
' 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