Pak Wie, Saya sudah utak-atik sedikit dan berhasil tidak ada errornya, tapi sekali lagi mohon bantuannya mengenai outputnya seperti ini:
AN 200801 MARKETING 4 KARAWANG AN 200801 MARKETING 4 CIKARANG TOTAL 4 AN 200801 MARKETING 2 PULOGADUNG TOTAL 2 Jadi yang berhasil di grouping hanya yang pertama saja dan sisanya adalah sbb: BDY 200803 PUBLIC 8 TPM TOTAL 8 BDY 200803 PUBLIC 8 OHSAS TOTAL 8 Yang diharapkan adalah: AN 200801 MARKETING 4 KARAWANG AN 200801 MARKETING 4 CIKARANG AN 200801 MARKETING 4 PULOGADUNG TOTAL 12 BDY 200803 PUBLIC 8 TPM BDY 200803 PUBLIC 8 OHSAS TOTAL 16 DST... Dan dari segi penjumlahannya masih belum bisa. Sekali lagi mohon bantuannya dan terima kasih sekali. ________________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Didi Sent: 25 Februari 2008 13:12 To: [email protected] Subject: RE: [indoprog-vb] Re: Tanya penjumlahan R-1 Pak Wie, sekali lagi terima kasih atas bantuannya. Mohon jangan bosan ya.... :-) Saya sudah copy coding yang baru dan sudah saya sesuai dengan kondisi yang ada. Tapi saat di run muncul pesan sbb: 'Run-Time Error 30015 Can not remove last non-fixed row' dan kalau di debug maka di sort ke perintah .RemoveItem I. Tapi kalau saya berikan perintah On error resume next maka proses akan berjalan, tapi setiap kegiatan akan di ditambahkan kolom TOTAL dengan nilai total 0, bukan gabungan berdasarkan KODE. _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of wiequadrat Sent: 25 Februari 2008 12:02 To: [email protected] Subject: [indoprog-vb] Re: Tanya penjumlahan R-1 itu artinya ada kesalahan dalam pengisian data karena row atau kolomnya tidak ada. misalnya ada array 0 sampai 4 tapi anda isi array 7. koding itu berfungsi untuk mengisi nilai total ke datagrid tapi sudah saya ganti btw kodingnya ada sedikit kesalahan logika. sorry (ketiknya langsung di email) ==================== 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 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 .additem vbtab & "TOTAL" & vbtab & _ & vbtab & _ & vbtab & _ & vbtab & _ ntotal 'kolom ke 5 i = i + 1 ntotal = 0 end if 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 end if ntotal = ntotal + rs!J rs.movenext i = i + 1 wend end with ==================== --- In [email protected] <mailto:indoprog-vb%40yahoogroups.com> , "Didi" <[EMAIL PROTECTED]> wrote: > > Pak Wie, kalau keluar pesan 'Subscript out of range' artinya apa ya? Dan maksud dari: > .TextMatrix(i, 1) = "TOTAL" > .TextMatrix(i, 5) = ntotal > Artinya apa ya pak? > > Trims sebelumnya. > > ________________________________________ > From: [email protected] <mailto:indoprog-vb%40yahoogroups.com> [mailto:[email protected] <mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of wiequadrat > Sent: 25 Februari 2008 11:04 > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > Subject: [indoprog-vb] Re: Tanya penjumlahan R-1 > > di MSHFlexgrid ada fungsi "clear" yg berfungsi untuk membersihkan isi > dari grid jadi kosong. > > di data grid kalo tidak salah .clearfields > > sebaiknya anda buat fungsi sendiri yang gunanya menghapus datagrid > anda sampai tinggal 1 baris header dan 1 baris kosong. yang saya buat > sebelumnya kelihatannya hanya berfungsi kalau anda menggunakan MSHFlexgrid > > --- In [email protected] <mailto:indoprog-vb%40yahoogroups.com> , "Didi" <dc@> wrote: > > > > 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:indoprog-vb%40yahoogroups.com> > [mailto:[email protected] <mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of wiequadrat > > Sent: 25 Februari 2008 9:55 > > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > > 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] <mailto:indoprog-vb%40yahoogroups.com> , "Didi" <dc@> 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:indoprog-vb%40yahoogroups.com> > > [mailto:[email protected] <mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of Didi > > > Sent: 25 Februari 2008 8:56 > > > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > > > 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:indoprog-vb%40yahoogroups.com> [mailto:[email protected] <mailto:indoprog-vb%40yahoogroups.com> ] > > > On Behalf Of Fajar H. > > > Sent: 21 Februari 2008 9:59 > > > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > > > Subject: Re: [indoprog-vb] Tanya penjumlahan > > > > > > pertanyaannya ..??? > > > > > > ----- Original Message ----- > > > From: Didi > > > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > <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> > > > <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] > > > > > > [Non-text portions of this message have been removed]
