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], "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:[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" <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:[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]
> > >
> >
>
