Terima kasih atas sarannya Pak Wie, saya sudah coba dan rubah sedikit sesuai dengan apa yang Pak Wie berikan termasuk penggantian MSHFlexGrid. Untuk nama table sudah saya rubah, tapi saat di run keluar pesan 'Run-Time Error 424 Object Required' dengan posisi kursor pada .CLEAR (hapus grid sampai tinggal 1 baris kosong).
________________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of wiequadrat Sent: 25 Februari 2008 9:55 To: [email protected] Subject: [indoprog-vb] Re: Tanya penjumlahan R-1 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] >
