Mengisi Data ListView pada Visual Basic (VB)
Salam debug untuk para pecinta koding....apa kabar mas/mbak, bli/mbok?? Ketemu lagi nih dengan tokokoding.blogspot.com. kali ini saya ingin berbagi artikel tentang pemrograman, yaitu tentang bagaimana cara :mengisi data pada listview pada visual basic (vb) :
Ok gak perlu basa-basi lagi,, langsung saja kita ke koding, setelah anda selesai membuat tampilan formnya, seperti mengisi listview, text, button, dll anda klik 2X pada form kemudian buatkan sub baru. Berikut kode untuk mengisi data pada listview pada visual basic (vb) 6.0 :
Sub isidatalist()
With DataEnvironment1.rsbarang
If .RecordCount > 0 Then .MoveFirst
Me.ListView1.ListItems.Clear
On Error Resume Next
While Not .EOF
Set Ls = Me.ListView1.ListItems.Add(Text:=.Fields(0))
Ls.SubItems(1) = .Fields(1)
Ls.SubItems(2) = .Fields(2)
Ls.SubItems(3) = .Fields(3)
Ls.SubItems(4) = .Fields(4)
Ls.SubItems(5) = Format(.Fields(5), "#,###")
.MoveNext
Wend
If .RecordCount > 0 Then .MoveFirst
End With
End Sub
· Panggil sub diatas pada form load, klik 2x form kemudian ketik : call isidatalist
Sekian ilmu dari saya tentang :: mengisi data listview pada visual basic 6.0 :: kalau ada yang debug/error,, komment aja kesini biar kita cari solusinya sama-sama. Terimakasih....