Jika Anda ingin menghitung total pembayaran dari subtotal pembelian yang dilakukan oleh pelanggan dengan menjumlahkan salah satu kolom dari Listview. Misalkan kolom yang akan dihitung totalnya berada di kolom ke-4 (kolom paling kiri berindex nol), maka syntax-nya sebagai berikut:
Dim total as integer
For i As Integer = 0 To Listview1.Items.Count - 1
total = total + listview1.Items(i).SubItems(3).Text
Next
'Tampilkan hasil dari Total Bayar
TxtTotal.text = total
Keterangan:
i adalah posisi baris pada listview
Listview1.Items.Count untuk menghitung jumlah baris data pada listview
Subitems (3) merujuk pada kolom ke-4 dari listview (index kolom = posisi kolom - 1)
Posts
mas bisa engga kasih contoh sederhana beserta menambah data ke listview dengan gambar, maklum kita orang awam baru mau belajar VB.Net nich ... sebelumnya dan sesudahnya terima kasih, smoga ilmunya bermanfaat dan makin bertambah
ReplyDeletegan. terimakasih gan...
ReplyDeleteterimakasih... dialnjutkan terus tipsnya gan. oke
@Ary Gondrong: Sori bro sampe sekarang ane belum uji coba masalah tersebut..hehe. Ntar kalau ane udah uji coba nanti pasti akan diposting. Thanks bro untuk masukannya...
ReplyDeletegan, punya saya kopipaste sama ini, tp kok msih error yak?
ReplyDeletemunculnya malah gini "Index out of Bounds".
artinya apa?
mantabbb nih, thanks banget gan :D
ReplyDeleteTAMBAHAN GAN UNTUK MEMASUKKAN DATA KE LISTVIEW
ReplyDeleteDim n As Integer
For n = 0 To NAMALISTVIEW.Items.Count - 1
If NAMALISTVIEW.Items(n).Text = TEXTBOXYANGPRIMARY.Text Then
MsgBox("Data Perbaikan Sudah Ada pada List")
Exit Sub
End If
Next
ListViewPerbaikan.Items.Add(NAMATEXTBOX PADA INDEX KE-0.Text)
ListViewPerbaikan.Items(n).SubItems.Add(NAMATEXTBOX PADA INDEX KE-1.Text)
ListViewPerbaikan.Items(n).SubItems.Add(NAMATEXTBOX PADA INDEX KE-2.Text)
txtTotBP.Text = Format(CDbl(txtBiayaPerbaikan.Text), "###,###,###,###")
index = index + 1
dicoba dulu bos, semoga jalan
ReplyDeletenuhunnn gannnn
ReplyDeleteTerimakasih gan..
ReplyDeletesalah disini ---> listview1.Items(i).SubItems(3).Text
ReplyDeletebearti cuma kopas aja ni orang
iyah betul nih,salah disini ---> listview1.Items(i).SubItems(3).Text harusnya bagaimana?
ReplyDeleteListview1 itu name nya gan..
DeleteAne dah coba this tottality work
gan mau minta tolong.. sy sedang iseng2 buat program multimedia untuk pembelajaran program nya sdh oke tapi ada sedikit yg saya ingin rubah.. yaitu sewaktu saya memanggil database nya untuk di tampilkan di listbox.. saya ingin hanya 10 list data saja di tampilkan dan jika saya klik commad buton (next) maka dia akan menampilkan 10 list data berikut nya.. itu caranya gimana ya gan.. sebelumnya makasih banyak
ReplyDeleteThanks banget gan, jd bs buat program kasir sendiri wkwkwkwk 😁😁😁😁😁😁
ReplyDeletemas itu codingnya di taruh bagian mana yaaa???
ReplyDeletemas kalau buat simpen ke data base pakai adodc gimana ya cara nya...
ReplyDeletecodingnya taro di man
ReplyDeletenot work bro !! even listview1.items tidak di kenali
ReplyDelete