Maaf sebelumnya Pak, ternyata hasil jumlah dari setiap field KODE
ditampilkan di datagrid. Apakah bisa ya?

Kondisi saat ini setelah proses pencarian:
USER    TGL             KODE    RINCIAN JAM     KETERANGAN
CM
AN      04/02/2008      200801  MARKETING       4       KIIC
0
AN      04/02/2008      200801  MARKETING       4       CIKARANG
0
AN      05/02/2008      200803  ADMINSTRASI     4       BUAT LAPORAN
0
BY      04/02/2008      200802  PUBLIC TRNG     8       OHSAS 18000
0
BY      05/02/2008      200802  PUBLIC TRNG     8       TPM
0


Yang di harapkan saat setelah proses pencarian maka akan tampil di
datagrid seperti di bawah:
USER    TGL             KODE    RINCIAN JAM     KETERANGAN
CM
AN      04/02/2008      200801  MARKETING       4       KIIC
0
AN      04/02/2008      200801  MARKETING       4       CIKARANG
0
                                TOTAL           8
0
AN      05/02/2008      200803  ADMINSTRASI     4       BUAT LAPORAN
0
                                TOTAL           4
0
BY      04/02/2008      200802  PUBLIC TRNG     8       OHSAS 18000
0
BY      05/02/2008      200802  PUBLIC TRNG     8       TPM
0
                                TOTAL           16
0

Sekali lagi mohon bantuannya dan terima kasih sekali :-)




From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of wiequadrat
Sent: 22 Februari 2008 9:17
To: [email protected]
Subject: [indoprog-vb] Re: Tanya penjumlahan

gak ada cara mudah deh

solusinya adalah dengan hasil query pencarian pertama disorting
berdasarkan KETERANGAN
lalu saat akan disimpan ke excel, pada setiap baris dijumlah TOTAL dan
dicek apakah ada perbedaan KETERANGAN

IF sama dengan sebelumnya MAKA total dijumlah terus
ELSE total ditampilkan ke excel

=======
dim sKETERANGAN_prev as string
dim total as integer

total = 0
sKETERANGAN_sebelumnya = ""
while rs.eof = false
simpan1baris_toexcel() 
if sKETERANGAN_prev = rs!KETERANGAN then
total = total + val(rs!JAM)
else
simpantotal_toexcel()
total = 0
endif
sKETERANGAN_prev = rs!KETERANGAN
rs.movenext
wend

--- In [email protected]
<mailto:indoprog-vb%40yahoogroups.com> , "Didi" <[EMAIL PROTECTED]> wrote:
>
> Sorry Pak, jadi begini terlampir tabel dibawah adalah tabel saat ini
(setelah menggunakan query pencarian)
> 
> USER TGL KODE KETERANGAN JAM CM
> AN 20/02/2008 200802 CUST SERVICE 4 
0
> AN 20/02/2008 200803 SERV EXCELLENCE 3 0
> AN 21/02/2008 200802 CUST SERVICE 5 
0
> AN 21/02/2008 200804 5R 
3 0
> 
> Nah, terus dari hasil tampilan diatas akan di simpan ke dalam format
excel (kalau simpannya sih bisa :) tapi query untuk menjumlahkan dari
field jam berdasarkan kelompok dari masing-masing field kode itu yang
saya masih belum bisa)
> 
> Yang diharapkan adalah:
> 
> USER TGL KODE KETERANGAN JAM CM
> AN 20/02/2008 200802 CUST SERVICE 4 
0
> AN 21/02/2008 200802 CUST SERVICE 5 
0
> TOTAL 
9 0
> AN 20/02/2008 200803 SERV EXCELLENCE 3 0
> TOTAL 
3 0
> AN 21/02/2008 200804 5R 
3 0
> TOTAL 
3 0
> 
> Mohon bantuannya ya rekan-rekan dan sebelumnya terima kasih banget
loh :)
> ,_._,___ 
> 
> 
> [Non-text portions of this message have been removed]
>
 


[Non-text portions of this message have been removed]

Kirim email ke