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 = NewOleDbConnection("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 Classcombodlmdgv

    SubKolombaru()

        CallListBarang()

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

    End Sub

    SubListBarang()

        CallKoneksi()

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

        DS = NewDataSet

        DS.Clear()

        DA.Fill(DS)

        Dimcols As NewDataGridViewComboBoxColumn 

' 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(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        CallKoneksi()

        CallKolombaru()

    End Sub

    Private Sub DGV_CellEndEdit(ByValsender As Object, ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs) HandlesDGV.CellEndEdit

        On Error Resume Next

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

        DR = CMD.ExecuteReader

        DR.Read()

        IfDR.HasRows Then

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

        End If

    End Sub   

End Class