Move Items Datagridview To Listview VB.Net - Cara memindahkan data yang ada di dalam datagridview ke listview akan coba saya demonstrasikan secara sederhana di dalam artikel ini, mudah-mudahan ini berguna untuk anda atau teman anda.
Sebenarnya contoh ini adalah program awal dari pembuatan program POS (Point Of Sale) yang sudah pernah saya buat, namun belum saya publish di website ini. Mungkin dilain waktu akan coba saya publikasikan contoh program sederhana Point of sale di website ini.
Ok, langsung saja kita simak cara memindahkan data item datagridview ke listview dibawh ini :
Ikuti langkah mudah dibawah ini :
1. Pertama-tama buat program baru di visual strudio anda, terserah diberi apa nama programnya.
2. Masukkan kedalam Form1 :
3. Tambahkan Class pada program anda dengan cara klik kanan lalu pilih add class lalu beri nama Datamenu.
Pada tahap ini, jika sudah sudah berhasil membuat class baru lalu masukkan kode dibawah ini.
Baca juga :
4. Double Klik pada Form1, lalu masukkan kode dibawah ini :
5. Jalankan Program dengan mengklik Run atau F5
Cara menggunakan program sederhana ini :
Sebenarnya contoh ini adalah program awal dari pembuatan program POS (Point Of Sale) yang sudah pernah saya buat, namun belum saya publish di website ini. Mungkin dilain waktu akan coba saya publikasikan contoh program sederhana Point of sale di website ini.
Ok, langsung saja kita simak cara memindahkan data item datagridview ke listview dibawh ini :
![]() |
Move Items Datagridveiw To Listview |
1. Pertama-tama buat program baru di visual strudio anda, terserah diberi apa nama programnya.
2. Masukkan kedalam Form1 :
- 1 buah Datagridview
- 1 buah Listview
- 1 Buah Label
3. Tambahkan Class pada program anda dengan cara klik kanan lalu pilih add class lalu beri nama Datamenu.
Pada tahap ini, jika sudah sudah berhasil membuat class baru lalu masukkan kode dibawah ini.
Public Sub New(ByVal Menu As String, ByVal Harga As String)
_Menu = Menu
_Harga = Harga
End Sub
Private _Menu As String
Public Property Menu() As String
Get
Return _Menu
End Get
Set(ByVal value As String)
_Menu = value
End Set
End Property
Private _Harga As String
Public Property Harga() As String
Get
Return _Harga
End Get
Set(ByVal value As String)
_Harga = value
End Set
End Property
Kode ini untuk mendeklarasikan tabel kedalam datagridviewBaca juga :
- Cara membuat Format Rupiah di Textbox VB.Net
- Add Row Blank Datagridview VB.Net
- Tutorial VB.Net Untuk pemula
4. Double Klik pada Form1, lalu masukkan kode dibawah ini :
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim lista = New List(Of Datamenu)
'Dim dt As New DataTable
lista.Add(New Datamenu("Bakmi Yoyen", 13000))
lista.Add(New Datamenu("Bakso Telor", 12000))
lista.Add(New Datamenu("Bakso Urat", 13000))
lista.Add(New Datamenu("Bakso Gepeng", 13000))
lista.Add(New Datamenu("Es Teh Manis", 5000))
lista.Add(New Datamenu("Es Jeruk", 6000))
lista.Add(New Datamenu("Es Alpukat", 6000))
lista.Add(New Datamenu("Air Putih", 3000))
'Dim newrow As DataRow = lista.NewRow
DataGridView1.DataSource = lista
End Sub
Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
Try
Dim result As Boolean = False
Dim itemindex As Integer = 0
For Each item As ListViewItem In ListView1.Items
If item.SubItems(1).Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value Then
result = True
itemindex = item.Index
Exit For
End If
Next
If result = True Then
For Each item As ListViewItem In ListView1.Items
If item.SubItems(1).Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value Then
item.Text = (CInt(ListView1.Items(itemindex).Text) + CInt(1).ToString)
item.SubItems(3).Text = (CInt(ListView1.Items(itemindex).Text) * CDbl(ListView1.Items(itemindex).SubItems(2).Text))
ListView1.Items(itemindex).SubItems(3).Text = Format(Val(ListView1.Items(itemindex).SubItems(3).Text), "###,###.00")
'MessageBox.Show("Data Ini Sudah Ada pada Baris Ke " + (hasil.Index + 1).ToString, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Next
Else
Dim x As ListViewItem
x = ListView1.Items.Add(1)
x.SubItems.Add(DataGridView1.Rows(e.RowIndex).Cells(0).Value)
x.SubItems.Add(DataGridView1.Rows(e.RowIndex).Cells(1).Value)
x.SubItems.Add(CDbl(DataGridView1.Rows(e.RowIndex).Cells(1).Value))
x.SubItems(2).Text = Format(Val(x.SubItems(2).Text), "###,###.00")
x.SubItems(3).Text = Format(Val(x.SubItems(3).Text), "###,###.00")
End If
Catch ex As Exception
MsgBox("klik itemnya saja, bukan headernya")
End Try
End Sub
5. Jalankan Program dengan mengklik Run atau F5
Cara menggunakan program sederhana ini :
- Pastikan program berjalan dengan benar tanpa error
- Klik 1 kali data item pada datagridview maka data tersebut akan muncul di listview
Note :
Contoh program sederhana ini bisa dikembangkan sehingga menjadi program POS atau sejenisnya, jadi jangan lelah untuk berkreasi atau memulainya.
Demikian cara memindahkan data item datagridview ke Listview, Semoga bermanfaat.
0 Komentar untuk "Move Items Datagridview To Listview VB.Net"