Memasukkan data ke dalam listView
Ini kelanjutan dari Tuorial sebelumnya yaitu tentang Menambah kolom pada ListView. Setelah listview terdapat kolom-kolom untuk menyimpan data- data, berikut kode nya
Dim ARR(5) As String
ARR(0) = TxtKd_Brg.Text
ARR(1) = TxtNm_Brg.Text
ARR(2) = TxtSatuan.Text
ARR(3) = TxtQty.Text
ARR(4) = TxtH_Satuan.Text
ARR(5) = TxtTotal.Text
' memyimpan data ke dalam listview
Dim ListItem As ListViewItem
ListItem = New ListViewItem
ListItem = LvKasir.Items.Add(ARR(0))
ListItem.SubItems.Add(ARR(1))
ListItem.SubItems.Add(ARR(2))
ListItem.SubItems.Add(ARR(3))
ListItem.SubItems.Add(ARR(4))
ListItem.SubItems.Add(ARR(5))
sedangkan untuk menghapus nya menggunakan Kode berikut :
Dim BARIS As Integer = 0
LvKasir.Items(BARIS).Remove()
Wlwpn sedikit semoga bermanfaat
terimakasih
Dim ARR(5) As String
ARR(0) = TxtKd_Brg.Text
ARR(1) = TxtNm_Brg.Text
ARR(2) = TxtSatuan.Text
ARR(3) = TxtQty.Text
ARR(4) = TxtH_Satuan.Text
ARR(5) = TxtTotal.Text
' memyimpan data ke dalam listview
Dim ListItem As ListViewItem
ListItem = New ListViewItem
ListItem = LvKasir.Items.Add(ARR(0))
ListItem.SubItems.Add(ARR(1))
ListItem.SubItems.Add(ARR(2))
ListItem.SubItems.Add(ARR(3))
ListItem.SubItems.Add(ARR(4))
ListItem.SubItems.Add(ARR(5))
sedangkan untuk menghapus nya menggunakan Kode berikut :
Dim BARIS As Integer = 0
LvKasir.Items(BARIS).Remove()
Wlwpn sedikit semoga bermanfaat
terimakasih
Comments
Post a Comment