Carga datagridview combobox con una otra tabla

[rKNeko]

Buenos días,

Antes de nada daros las gracias por las posibles soluciones/ayudas que puedan prestarme. Llevo un par de días con este tema y la verdad que ni en google ni en foros he visto este problema.

Estoy trabajando en vb.net y tengo un datagridview que cargo con la tabla Ocompra (Ordenes de compra) en esta hay un campo que es id_accion, que lo que quisiera es que apareciese el nombre de la acción y no su valor, eso estaría en la tabla de Accion.

Para cargar el datagridview utilizo el siguiente codigo:

Código vb:

Ds.Clear()
 
        Dim sql1 As String = "select *  from ocompra where fecha = '" & dtfecha.Value & "'"
        Da = New SqlDataAdapter(sql1, CnxBD)
        Da.Fill(Ds, "ocompra")
        Me.dgvcompra.DataSource = Ds.Tables("ocompra")
 

Y para cargar el combobox:

Código vb:

With cmd
            .CommandType = CommandType.Text
            .CommandText = "Select * From Accion"
            .Connection = CnxBD
        End With
 
        Da.SelectCommand = cmd
        Dt = New DataTable
        Da.Fill(Dt)
        With col2
            .DataSource = Dt
            .DisplayMember = "Nombre"
            .ValueMember = "id_accion"
        End With
 

Hasta ahí bien, me carga las compras que ha habido ese día y me carga un combobox al final con todas las acciones, pero, ¿como le digo que la segunda columna del datagridview quiero que sea el combobox y con el valor cargado de la compra?

Seguiré dándole vueltas e intentar hacerlo de algun modo.

Gracias y un saludo.

[lucasmoadr]

Te lo digo en palabras para ver si te oriento:

lo que tenes que hacer primero es crear columna por columna y no cargar la grilla con el datasource directamente.

Me.dgvcompra.DataSource = Ds.Tables("ocompra")

ESTO NO VA SI QUERES HACERLO MANUALMENTE.

la segunda columna tiene que ser de tipo combobox.
despues tenes que hacer un foreach de columna por columna e ir llenando los datos. Una vez que llegas a la del combo, deberias filtrarlo segun la accion que deseas.
Espero haberte orientado un poco.

[rKNeko]

Buenas Lucasmoadr y gracias por tu rápida respuesta.

Desde que me lo pusistes he estado haciendo modificaciones en el código (borrar y empezar vaya) y ya consigo cargar los datos que quiero en las columnas que anteriormente he creado. Voy a seguir a ver si consigo ahora el combobox.

Gracias y un saludo.

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