Saya mau tanya satu lagi nih :-)
Saya memiliki field: Nama Barang, Kuantitas, Harga Satuan & Total Harga yang semuanya saya tampilkan dalam bentuk datagrid. Yang ingin saya tanyakan adalah apakah bisa pada kolom field Total Harga dapat menjumlahkan dari kolom filed Harga Satuan * kolom field Kuantitas? Jadi pada saat memasukkan harga satuan maka pada kolom filed Total Harga akan menghitung secara otomatis. :-) Sekali lagi terima kasih. Salam, Didi _____ 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]
