Carga datagridview combobox con una otra tabla

[rKNeko]

Buenas a todos,

Ya lo conseguí, aunque creo que el código no esta muy depurado pero funciona.

Código vb:

Dim Dtc As DataTable
        Dim ocompra As DataGridViewColumn = New DataGridViewTextBoxColumn()
        Dim realizadas As DataGridViewColumn = New DataGridViewTextBoxColumn()
        Dim id_producto As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn()
        Dim num_acciones As DataGridViewColumn = New DataGridViewTextBoxColumn()
        Dim p_compra As DataGridViewColumn = New DataGridViewTextBoxColumn()
        Dim extracto As DataGridViewColumn = New DataGridViewTextBoxColumn()
 
        'Cargo el combobox los datos de las acciones, Nombre e id_accion
        With cmd
            .CommandType = CommandType.Text
            .CommandText = "Select * From Accion"
            .Connection = CnxBD
        End With
 
        Da.SelectCommand = cmd
        Dtc = New DataTable
        Da.Fill(Dtc)
        With id_producto
            .DataSource = Dtc
            .DisplayMember = "Nombre"
            .ValueMember = "id_accion"
        End With
 
        ' Cargo en el datatable los datos de las ordenes de compra
        With cmd
            .CommandType = CommandType.Text
            .CommandText = "select *  from ocompra where fecha = '" & dtfecha.Value & "'"
            .Connection = CnxBD
        End With
 
        Da.SelectCommand = cmd
        Dt = New DataTable
        Da.Fill(Dt)
 
        Dim dt2 As New DataTable
 
        dt2.Columns.Add("id_ocompra")
        dt2.Columns.Add("realizadas")
        dt2.Columns.Add("id_producto")
        dt2.Columns.Add("num_acciones")
        dt2.Columns.Add("p_compra")
        dt2.Columns.Add("extracto")
 
 
        dgvventa.Columns.Add(ocompra)
        dgvventa.Columns(0).HeaderText = "ocompra"
        dgvventa.Columns.Add(realizadas)
        dgvventa.Columns(1).HeaderText = "realizadas"
        dgvventa.Columns.Add(id_producto)
        dgvventa.Columns(2).HeaderText = "id_producto"
        dgvventa.Columns.Add(num_acciones)
        dgvventa.Columns(3).HeaderText = "num_acciones"
        dgvventa.Columns.Add(p_compra)
        dgvventa.Columns(4).HeaderText = "p_compra"
        dgvventa.Columns.Add(extracto)
        dgvventa.Columns(5).HeaderText = "extracto"
 
        For i = 0 To Dt.Rows.Count - 1
            dgvventa.Rows.Add()
            dgvventa(0, i).Value = Dt.Rows(i)("id_ocompra")
            dgvventa(1, i).Value = Dt.Rows(i)("realizadas")
            dgvventa(2, i).Value = Dt.Rows(i)("id_producto")
            dgvventa(3, i).Value = Dt.Rows(i)("num_acciones")
            dgvventa(4, i).Value = Dt.Rows(i)("p_compra")
            dgvventa(5, i).Value = Dt.Rows(i)("extracto")
        Next
 

Muchas gracias, si veis alguna posibilidad de mejora en el código u otra manera mejor de hacerlo díganmelo por favor.

Un saludo.