Move Items Datagridview To Listview VB.Net

Aris Triyanto

Saturday, September 9, 2017

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 :

Move Items Datagridveiw To Listview

Ikuti langkah mudah dibawah ini :

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 datagridview



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

Tags

tipstrik, vbnet