Hallo Pakar VB,
lagi desain laporan di crystal report 9, hasil di crystal report sudah ok,
misalnya di detail kita ada 1 record berdasarkan Nofak maka akan muncul 1
record, kalau ada 2 muncul 2. Hasil rumus di CR9 saya copy ke Visual Basic tapi
hasil tampilan kok double, misalnya di table detail ada 1 record tetap muncul
1 record, tapi kalau 2 muncul 4, 3 muncul 6, jadi di double 2 kali. ada yang
tahu ngak kenapa bisa begitu di vb. berikut ini kode di visual basic. thanks
Set rs = New ADODB.Recordset
msql = "SELECT DETAIL.Qty, DETAIL.Ket, DETAIL.Satuan, DETAIL.Harga, " & _
"OMZET.SJ, OMZET.Remark, OMZET.Brand, OMZET.NoKon, OMZET.Style, " & _
"CUSTOMER.NAMA, CUSTOMER.ALAMAT1, CUSTOMER.ALAMAT2, OMZET.Tgl,
OMZET.NoFak " & _
"FROM (CUSTOMER CUSTOMER INNER JOIN OMZET OMZET ON
CUSTOMER.NAMA=OMZET.Nama) " & _
"INNER JOIN DETAIL DETAIL ON OMZET.NoFak=DETAIL.Nofak " & _
"WHERE OMZET.NoFak='03'"
rs.Open cn.Execute(msql)
Set crR = cr_App.OpenReport(App.Path & "\Lap1.rpt")
Set crD = crR.Database
crD.SetDataSource rs, 3, 1
crR.DiscardSavedData
CR.ReportSource = crR
crR.EnableParameterPrompting = False
CR.ViewReport
[Non-text portions of this message have been removed]
