Maaf sebelumnya Pak, ternyata hasil jumlah dari setiap field KODE
ditampilkan di datagrid. Apakah bisa ya? Terlampir attachment adalah hasil
pencarian dan hasil yang diharapkan, sekali lagi mohon bantuannya dan terima
kasih sekali :)
Salam,
Didi
-----Original Message-----
From: [email protected] on behalf of
wiequadrat
Sent: Fri 2/22/2008 9:16 AM
To: [email protected]
Cc:
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]
