Baca Juga
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
Jawab :
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
Link Baru, klik tombol download dibawah ini :
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.
(agak berbeda sedikit code-codenya, tapi maksudnya sama). Mudah-mudahan bisa membantu.
Link Baru, klik tombol download dibawah ini :
8 Tanggapan
Seeeeeeeeeeeep.
Mas mau tanya, klo di ataskan data yang dicentang tampil dalam 1 lembar report, klo data yang dicentangnya di atas diubas menjadi per lembar gmn?? jadi misal kita centang 6 data maka report yang muncul jadi 6 lembar, jadi 1 lembar itu 1 baris data yang dicentang, mohon pencerahan mas mimin.....Thanks before
mas kl pilihannya dari combo box gmn???seandainya di combobox ada pilihan diterima dan ditolak...jadi saya cm ingin menapilkan di tolak saja ato diterima saja...tlg ya mas bls ke email saya...reogandroll@gmail.com
matur terima kasih
Tentunya lebih sederhana mas caranya bila criterianya cuma 1, monggo disimak disini :
http://www.vbjadul.net/2010/08/selection-formula-pada-crystal-report.html
@Confucius is My Way, coba gabungkan cara diatas dengan cara yang ini :
http://www.vbjadul.net/2013/02/pindah-halaman-otomatis-saat-berganti.html
mas mau nyak lah..
bagai mana menampilkan selection formula nilai per nis siswa di CR
tapi dengan gabungan tabel_siswa dan tabel_nilai..
jd saat klik pencarian nis siswa.. data tersebut yg muncul di cr..
Mas, saya masih bingung jika saya mempunyai data pada listview, dan kemudian saya ingin mencetaknya di crystal report, tanpa memakai database..
Tolong di balas ya mas ..
Thanks bro