Aku coba membantu dikit ya
selama ini aku pake table temporary
waktu perintah print data yg mau saya print aku insert ke
tabel temporary dengan menghapus data yg ada sebelumnya.
contoh aku seperti ini :
Dim no as integer
No=0
rs.Open "select * from fp where no_fp='"& txtno_fp &"'", con,
adOpenKeyset, adLockOptimistic
If rs.BOF = False Then
for i= 1 to rs.recordcount
Con.execute "Insert into rptf_pajak(
no_fp,tgl_fp,ket,harga,no) values(`"& txtno_fp.text &",'"& rs!tgl_fp
&"','"& rs!ket &"','"& rs!harga &"','"& no &"')"
No=no+1
rs.MoveNext
Next
End If
rs.Close
If no < 10 Then
For i = no To 10
Con.execute "Insert into rptf_pajak( no_fp,tgl_fp,harga,no)
values(`"& txtno_fp.text &",'"& rs!tgl_fp &"','"& no &"')"
No=no+1
rs.MoveNext
Next
End if
reportfakturpajak.Show
jadi yang di masukan ke cr adalah table rptf_pajak.
ini hanya untuk record yg kurang dari baris aja
semoga bisa membantu
--- In [email protected], "bvd14nt0" <[EMAIL PROTECTED]> wrote:
>
> alow rekan2 milis saya mohon bantuannya lg ttg CR.
> Bagaimana kita bs membuat detail di CR fix. misalnya jumlah item dlm
> surat jalan max itu 5 jd detailnya itu fix untuk 5 item. klo lebih
> pindah ke halaman berikutnya dan misal cuma ad 2 format dan letak2nya
> fix seperti 5 item.
>
> contoh
>
> =============================================
> No | Kode Brg | Nama Brg | Jumlah | total |
> =============================================
> 1 | a | a | 1 | 1000 |
> 2 | b | b | 2 | 2000 |
> | | | | |
> | | | | |
> | | | | |
> =============================================
> Total 3000
>
> jadi walau ad 2 item formatnya fix untuk 5 item.
> Mohon Pencerahan rekan2 milis sekalian. Thx atas bantuannya.
>
> Saya sudah mencoba tp tetap mengikuti jumlah item jd tampilan yg saya
> buat spt dibawah ini.
> =============================================
> No | Kode Brg | Nama Brg | Jumlah | total |
> =============================================
> 1 | a | a | 1 | 1000 |
> 2 | b | b | 2 | 2000 |
> =============================================
> Total 3000
>
