Membuat menambahkan combobox dalam datagridview

Untuk membuat atau menambahkan combobox dalam datagridview silakan anda ikuti langkah-langkah di bawah ini :

1. Buatlah sebuah project baru
2. Kemudian tambahkan sebuah module untuk koneksi ke database
3. Ketiklah atau copy coding di dalam module tersebut :

Imports System.Data.OleDb

Module Module1

    Public CONN As OleDbConnection

    Public DA As OleDbDataAdapter

    Public DS As DataSet

    Public CMD As OleDbCommand

    Public DR As OleDbDataReader

    Public Sub Koneksi()

        CONN = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=dbpersediaan.mdb")

        CONN.Open()

    End Sub

End Module

Buatlah form seperti gambar di bawah ini (hanya berupa datagridview saja). Gambar di bawah dalam kondisi program RUN

Ketiklah atau copy coding dibawah ini(selamat mencoba semoga berhasil)

Imports System.Data.OleDb

Public Class combodlmdgv

    Sub Kolombaru()

        Call ListBarang()

        DGV.Columns.Add("Jumlah", "Jumlah")

    End Sub

    Sub ListBarang()

        Call Koneksi()

        da = New OleDbDataAdapter("Select Kodebrg,namabrg,jumlahbrg from barang", Conn)

        DS = New DataSet

        DS.Clear()

        DA.Fill(DS)

        Dim cols As New DataGridViewComboBoxColumn 

' definisikan sebuah object di dgv berupa combo

        cols.DataSource = DS.Tables(0)             

' ambil data dari dataset

        cols.DisplayMember = "Namabrg"             

' ambil kolom nama barang

        DGV.Columns.Add(cols)                      

' tambahkan object tersebut

        cols.HeaderText = "Nama Barang"            

' buat header text

        cols.Width = 300                           

' atur lebar kolom

    End Sub

    Private Sub combodlmdgv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Koneksi()

        Call Kolombaru()

    End Sub

    Private Sub DGV_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellEndEdit

        On Error Resume Next

        CMD = New OleDbCommand("select * from barang where namabrg='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", CONN)

        DR = CMD.ExecuteReader

        DR.Read()

        If DR.HasRows Then

            DGV.Rows(e.RowIndex).Cells(1).Value = DR.Item("jumlahbrg")

        End If

    End Sub   

End Class