Salam VB,


nJlh_A=0 'set variabel utk total field A = 0
nJlh_B=0

'lakukan proses perulangan/looping sebanyak record yg di filter

for i=1 to rs.recordcount 'proses looping-nya
    nJlh_A=Jlh_A+rs.fields("A")
    nJlh_B=Jlh_B+rs.fields("B")
    rs.movenext
next i

'isi nilai textbox
textbox1.text=nJlh_A+nJlh_B

Mohon maaf sy sdh 6 bln ini tdk bs bls postingan ke forum, pesannya selalu 
menunggu approve dr moderator  :-)
jd sy hy bs bls lgsg k email mas aja...

Semoga membantu...

________________________________
GENERASI COMPUTER
Berbagi Ilmu Visual Basic Bagi Pemula

http://www.generasicomputer.com

Hp. 08126514562
________________________________






________________________________
From: sodikin vk <[email protected]>
To: Yopie Sofianto <[email protected]>
Sent: Fri, December 4, 2009 12:31:46 PM
Subject: Re: [Programmer-VB] Menjumlah


Terima kasih banyak atas reponnya
 
cuma saya belum begitu mengerti
Saya jelaskan lebih detail:
 
tampilan yang saya buat dalam bentuk listview
data filternya sudah bisa tampil di listview.
dan saya ingin menambahkan 1 textbox lagi untuk menampilkan total jumlah
yang tampil di listview tersebut.
Maaf sekali lagi saya masih newbiew dan belajar otodidak tentang vb jadi saya 
juga belum tahu istilah looping, jadi tolong jelaskan sekali lagi
 
terima kasih
 
 
 

--- On Fri, 4/12/09, Yopie Sofianto <[email protected]> wrote:


>From: Yopie Sofianto <[email protected]>
>Subject: Re: [Programmer-VB] Menjumlah
>To: [email protected]
>Cc: "sodikin vk" <[email protected]>
>Date: Friday, 4 December, 2009, 12:04 PM
>
>
> >
>
>
> Salam VB,
>
>sSQL= "SELECT * FROM NAMATABEL WHERE DIVISI='C' AND TANGGAL >= #' & 
>DTPICKER1.VALUE & "#' AND TANGGAL <= #' & DTPICKER2.VALUE & "#'"
>
>trus buat looping 
>nJlh_A=0
>nJlh_B=0
>for i=1 to rs.recordcount
>    nJlh_A=Jlh_A+rs.fields("A")
>    nJlh_B=Jlh_B+rs.fields("B")
>    rs.movenext
>next i
>
>
>Semoga membantu...
>
>________________________________
 GENERASI COMPUTER
>Berbagi Ilmu Visual Basic Bagi Pemula
>
>http://www.berbagi-ilmu-vb.ge165.com/
>
>Hp. 08126514562
>________________________________
 
>
>
>
>
>
>
________________________________
 From: sodikin vk <[email protected]>
>To: [email protected]
>Sent: Fri, December 4, 2009 11:13:03 AM
>Subject: [Programmer-VB] Menjumlah
>
> 
>Selamat siang master semua
> 
>Saya punya tabel
> 
>Tanggal       Divisi        A         B
>1/12/09        C             5          5
>3/12/09        C             5          5
>25/12/09       D             5          5
> 
>Saya ingin Jumlah total dari divisi C  dari tanggal 1/12/09 s/d 3/12/09
>bagaimana code nya?
> 
>terima kasih
> 
>  
>
________________________________
 New Email names for you! 
>Get the Email name you've always wanted on the new @ymail and @rocketmail.
>Hurry before someone else does!
>
> 
> 
________________________________
 Get your new Email address!  
Grab the Email name you've always wanted before someone else does!


      

Kirim email ke