hi,
nih ada 2 cara
1 dari stored procedure
2 langsung aja dari tabel
ini yg 1
crystal.Reset
crystal.WindowState = crptMaximized
crystal.WindowShowCloseBtn = True
crystal.WindowShowPrintSetupBtn = True
crystal.WindowShowSearchBtn = True
crystal.WindowShowRefreshBtn = True
crystal.Connect = dsnreport
crystal.DataFiles(0) = "Proc(tb_rekap1)"
crystal.ReportFileName = App.Path
"\report\rekap1.rpt"
crystal.ParameterFields(0) = "@kode1;" + cmbserv +
";true"
crystal.ParameterFields(1) = "@kode2;" + cmblevel
+ ";true"
crystal.ParameterFields(2) = "@kode3;" +
Format(Date, "yyyy") + ";true"
crystal.ParameterFields(3) = "@kode4;" +
Format(Date, "MM") + ";true"
crystal.ParameterFields(4) = "@namauser;" + nmuser
+ ";true"
crystal.RetrieveDataFiles
crystal.Action = 1
ini yang 2
(pake selection formula)
crystal.Reset
crystal.WindowState = crptMaximized
crystal.WindowShowCloseBtn = True
crystal.WindowShowPrintSetupBtn = True
crystal.WindowShowSearchBtn = True
crystal.WindowShowRefreshBtn = True
crystal.Connect = dsnreport
crystal.DataFiles(0) = "am_les"
crystal.SelectionFormula = "{am_les.kode} >= '" &
txtcatcode1 & "' and {am_les.kode} <= '" & txtcatcode2
& "'"
crystal.ReportFileName = App.Path &
"\report\listles.rpt"
crystal.ParameterFields(0) = "@kode1;" +
txtcatcode1 + ";true"
crystal.ParameterFields(1) = "@kode2;" +
txtcatcode2 + ";true"
crystal.ParameterFields(2) = "@namauser;" + nmuser
+ ";true"
crystal.RetrieveDataFiles
crystal.Action = 1
semoga berguna, kalo ada yg kurang jelas kasi tau dan
kalo ada yg mau tambahin silahkan..
--- Junus Sinuraya <[EMAIL PROTECTED]>
wrote:
> salam kenal untuk VBers INA,
> saya punya data sebagai berikut:
> table : Recieve
>
> Code_Brg Tgl_Recieve Qty
> 001 01/01/2006 25
> 002 01/01/2006 62
> 001 03/01/2006 36
> 001 04/01/2006 25
> 003 05/01/2006 25
>
> saya ingin membuat report dengan menggunakan CR 8.0
> dari VB
> seperti dibawah ini:
>
> PT.Angin Ribut
> Laporan Penerimaan Barang
>
> Start Date : Tgl_recieve(Awal)
> End Date : Tgl_Recieve(Akhir)
> Code :Code_Brg
>
>
> NO<?xml:namespace prefix = o ns =
> "urn:schemas-microsoft-com:office:office"
> />
>
> Tgl_Recieve
>
> Qty
>
>
> 01
>
> 01/01/2006
>
> 25
>
>
> 02
>
> 01/04/2006
>
> 25
>
> Total
> 50
>
>
>
>
> jadi kita hanya perlu informasi dari user untuk
> diketikkan
>
>
> jadi ketikkan user klik create Report maka akan
> muncul seperit diatas,
> saya sudah membuat bentuk reportnya di CR 8.0
> seperti report diatas,tapi
> untuk memanggilnya diVB bagaimana?
> soalnya saya bisa memanggilnya tapi semua data
> tampil,bukan seperti yang
> kita inginkan?start date and end date and code_brg
> so mohon pencerahann Vbers indonesia?
>
>
> Thanks and best regards,
>
>
> Yunus
>
>
>
>
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
