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:[EMAIL PROTECTED] On Behalf Of wiequadrat Sent: 25 Februari 2008 11:04 To: [email protected] 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], "Didi" <[EMAIL PROTECTED]> 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:[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" <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:[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] > > >
