karena penggunaan datagrid yang di"paksa" menampilkan data row dan
hasil aggregasi secara bersamaan maka diperlukan beberapa usaha
1. looping recordset.
2. bila ada perubahaan "kegiatan" maka tulis totalnya dulu
3. tulis 1 baris
4. looping ke 2
NB: saya menggunakan Microsoft Hierarchical Flex Grid tapi sebenernya
mirip dengan data grid koq.
==============
rs.open "select * from TBL_1 order by Kegiatan"
with MSHFlexGrid1
'hapus grid sampai tinggal 1 baris kosong
.clear
If .Rows > 2 Then
For i = .Rows - 1 To 2 Step -1
.RemoveItem i
Next
End If
i=1
ntotal = 0
while rs.eof = false
'pembuatan total
if i > 1 then
if ( rs!Kegiatan <> .textmatrix(i-1,4) AND .textmatrix(i-1,1) <>
"Total") then
.textmatrix(i,1) = "TOTAL"
.textmatrix(i,5) = ntotal
endif
end if
'pengisian data
if i = 1 then
.textmatrix(1,1) = rs!USR
.textmatrix(1,2) = rs!TGL
.textmatrix(1,3) = rs!KODE
.textmatrix(1,4) = rs!Kegiatan
.textmatrix(1,5) = rs!J
.textmatrix(1,6) = rs!KET
else
.additem vbtab & rs!USR & vbtab & _
rs!TGL & vbtab & _
rs!KODE & vbtab & _
rs!Kegiatan & vbtab & _
rs!J & vbtab & _
rs!KET
endif
rs.movenext
i = i + 1
wend
end with
==============
harap di modifikasi dahulu sesuai dengan keinginan anda
--- In [email protected], "Didi" <[EMAIL PROTECTED]> wrote:
>
> Jadi sebenarnya adalah ditambahkannya 1 kolom TOTAL dari
masing-masing pengelompokkan USER + KODE lalu di jumlahkan JAM-nya.
> Maaf sebelumnya, saya sudah preview hasilnya sesuai tapi saat di
post hasilnya berantakan.
>
> Saat ini:
>
> USR TGL KODE Kegiatan J KET
> AN 04/02/2008 200801 MARKETING 4 KIIC
> AN 04/02/2008 200801 MARKETING 4 CIKARANG
> BY 04/02/2008 200803 PUBLIC T 8 TPM
> BY 04/02/2008 200803 PUBLIC T 8 OHSAS
>
> Jadi yang diinginkannya adalah:
>
> USR TGL Kode Kegiatan J KET
> AN 04/02/2008 200801 MARKETING 4 KIIC
> AN 04/02/2008 200801 MARKETING 4 CIKARANG
> TOTAL 8
> BY 04/02/2008 200803 PUBLIC T 8 TPM
> BY 05/02/2008 200803 PUBLIC T 8 OHSAS
> TOTAL 16
>
> ________________________________________
> From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of Didi
> Sent: 25 Februari 2008 8:56
> To: [email protected]
> Subject: RE: [indoprog-vb] Tanya penjumlahan
>
> Pertanyaannya seperti ini pak, dan sorry kalau dobel posting karena
> exchange saya agak tidak beres.
>
> 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 Fajar H.
> Sent: 21 Februari 2008 9:59
> To: [email protected]
> Subject: Re: [indoprog-vb] Tanya penjumlahan
>
> pertanyaannya ..???
>
> ----- Original Message -----
> From: Didi
> To: [email protected] <mailto:indoprog-vb%40yahoogroups.com>
> Sent: Thursday, February 21, 2008 9:51 AM
> Subject: [indoprog-vb] Tanya penjumlahan
>
> Dear rekan-rekan programmer,
>
> Saya minta bantuannya nih :-) saya memiliki table data sbb:
>
> USER TGL KODE KETERANGAN
> JAM CM KETERANGAN
>
> AN
>
> 17/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 18/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 23/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 23/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 31/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 2
>
> 0
>
> KONFIRMASI PESERTA
>
> AN
>
> 03/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 23/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 31/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> KONFIRMASI PESERTA
>
> AN
>
> 03/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 18/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 21/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 29/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 4
>
> 0
>
> -
>
> Bagaimana query-ya saat di export ke excel, maka bisa di jumlahkan field
> jam berdasarkan pengelompokkan field kode?
>
> Mohon bantuannya dan terima kasih.
>
> Contoh layout:
>
> AN
>
> 16/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 2
>
> 0
>
> PROMOSI VIA EMAIL
>
> AN
>
> 16/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 2
>
> 0
>
> PROMOSI VIA EMAIL
>
> AN
>
> 17/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 18/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 23/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 200801
>
> WAREHOUSE MANAGEMENT 12-13 FEB '08
>
> 42
>
> 0
>
> AN
>
> 23/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 31/01/2008
>
> 200802
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 2
>
> 0
>
> KONFIRMASI PESERTA
>
> AN
>
> 200801
>
> MANAGING TRAINING FUNCTION 12-13 FEB '08
>
> 5
>
> 0
>
> AN
>
> 03/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 23/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> FOLLOW UP KIRIM BROSUR
>
> AN
>
> 28/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 1
>
> 0
>
> -
>
> AN
>
> 31/01/2008
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 2
>
> 0
>
> KONFIRMASI PESERTA
>
> AN
>
> 200803
>
> BUSINESS PROCESS IMPROVEMENT 13-14 FEB '08
>
> 7
>
> 0
>
> AN
>
> 03/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 18/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 21/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 2
>
> 0
>
> -
>
> AN
>
> 29/01/2008
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 4
>
> 0
>
> -
>
> AN
>
> 200804
>
> ISO 22000:2005 26-27 FEB '08
>
> 10
>
> 0
>
> Salam,
>
> Didi
>
> [Non-text portions of this message have been removed]
>
> --
> I am using the free version of SPAMfighter for private users.
> It has removed 560 spam emails to date.
> Paying users do not have this message in their emails.
> Get the free SPAMfighter here: http://www.spamfighter.com/len
> <http://www.spamfighter.com/len>
>
> [Non-text portions of this message have been removed]
>
> [Non-text portions of this message have been removed]
>
