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]
