Untuk menjumlahkan suatu data dalam grid, kita bisa memakai recordsetnya yang
konek dengan
grid tsb. contohnya :
.
.
.
dim vJml as double, vTot as double
vJml = 0
vTot = 0
if not rsData.BOF then rsData.MoveFirst
do while not rsData.EOF
vJml = vJml + rsData("Jumlah").value
vTot = vTot + rsData("Total").value
rsData.MoveNext
loop
text1 = format( vJml, "#,###,###,###,###.##")
text2 = format( vTot, "#,###,###,###,###.##")
.
.
.
Catatan : regional setting untuk komp adalah "United States" atau lainnya
yang menggunakan
"." ( titik ) sebagai desimal dan "," ( koma ) sebagai ribuan. Kalau pake
"Indonesian" tinggal
ganti titik dengan koma dan sebaliknya
semoga membantu
aan djuhani <[EMAIL PROTECTED]> wrote:
Mohon maaf, mas DAS tampilannya kurang bagus tuch :
Edit
KD NAMA HARGA JUMLAH TOTAL
MT MONITOR 500.000 1 500.000
KB KEYBOARD 100.000 2 200.000
MS MOUSE 50.000 3 150.000
Text1.text = total jumlah atau = 6
text2.text = total dari total = 850.000
begitu maksud saya
Terima kasih
sebelumnnya.
Best Regards,
DASmania Cool
Free 500 MB File Hosting at File Lodge
---------------------------------
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates
starting at 1ยข/min.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Something is new at Yahoo! Groups. Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/zCsqlB/TM
--------------------------------------------------------------------~->
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
