Sedikit Info Seputar
MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW
Terbaru 2017
- Hay gaes kali ini team Sniffing Blog, kali ini akan membahas artikel dengan judul MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW , kami selaku Team Sniffing Blog telah mempersiapkan artikel ini untuk sobat sobat yang menyukai Sniffing Blog. semoga isi postingan tentang
Artikel Pemrograman,
Artikel VB6, yang saya posting kali ini dapat dipahami dengan mudah serta memberi manfa'at bagi kalian semua, walaupun tidak sempurna setidaknya artikel kami memberi sedikit informasi kepada kalian semua. ok langsung simak aja sob
Judul:
Berbagi Info Seputar
MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW
Terbaru
link: MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW
Berbagi Artikel Tentang MENYELEKSI CRYSTAL REPORT 8.5 DENGAN KRITERIA ATAU NILAI TERTENTU YANG DIPILIH DENGAN MENYENTANG LISTVIEW Terbaru dan Terlengkap 2017
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 =
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