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
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
[Non-text portions of this message have been removed]
