Mengisi ListView pada Visual Basic (VB)

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....

BACA JUGA :