Actualizar combobox dentro de un datagridview

[roger1187]

Hola que tal tengo la sgte duda.

tengo 2 tablas, una de articulos y una de unidades

la tabla de unidades que tenga por ejemplo 10 registros.

Ahora.
tengo un datagridview que tiene 3 campos, dos de tipo textbox y el ultimo de tipo combobox

los 2 textbox tienen nombre:
id_articulo
nom_articulo

el combo tiene por nombre unidad.
unidad

la idea que cuando yo por ejemplo digite en idarticulo = 0001
en el combobox deberia cargar solamente 3 registros de la tabla unidades.

[devilinside]

...espero que se entienda y te sirva:

Primero debes programar en el evento CellValueChanged, para cargar desde ahí la info del combo, cada vez que el id_Articulo cambia

Código Vb.Net:

Private Sub dgv_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvContenedor.CellValueChanged
        With dgv
            If .CurrentCell Is Nothing Then
                Exit Sub
            End If
            If .CurrentCell.OwningColumn.Name = "id_articulo" Andalso .CurrentCell.Value IsNot DbNull.Value Then
                 
                   'llamamos a la función que cargará las unidades y le enviamos la fila actual
                   CargarUnidadesEnCombo(.CurrentRow)
 
            End If
        End With
End Sub
 

y esta sería la función que carga la info en el Combo.

Código Vb.Net:

Private Sub CargarUnidadesEnCombo(ByVal fila As DataGridViewRow)
 
        Dim idArticulo as Integer
        Dim dt As New DataTable
 
        idArticulo=fila.Cells("id_articulo").value
 
        'Llamamos a una funcion que devuelve una Tabla con las unidades, dependiendo del codigo de producto
        dt = ObtenerDetalle(idArticulo)
 
        Dim Celda As DataGridViewComboBoxCell = DirectCast(fila.Cells("Unidad").value, DataGridViewComboBoxCell)
 
        With Celda
            .DataSource = dt
            .DisplayMember = "Unidad"
            .ValueMember = "Código"
            If dtContacto Is Nothing OrElse dtContacto.Rows.Count <= 0 Then
                .ReadOnly = True
            Else
                .ReadOnly = False
            End If
        End With
End Sub
 

Saludos ;)

[roger1187]

Hola dr. recien he tenido un tiempo para poder revisar el codigo, pero me da un error no se si sabras porque es.

Referencia a objeto no establecida como instancia de un objeto.

el codigo que me pasaste lo deje asi ya con los nombres de mis columnas

Private Sub m_dgv_detalle_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles m_dgv_detalle.CellValueChanged
With m_dgv_detalle
If .CurrentCell Is Nothing Then
Exit Sub
End If
If .CurrentCell.OwningColumn.Name = "txt_intero" AndAlso .CurrentCell.Value IsNot DBNull.Value Then
'llamamos a la función que cargará las unidades y le enviamos la fila actual
CargarUnidadesEnCombo(.CurrentRow)
End If
End With
End Sub

Private Sub CargarUnidadesEnCombo(ByVal fila As DataGridViewRow)
Dim idArticulo As String
Dim dt As New DataTable
idArticulo = fila.Cells("txt_intero").Value
'Llamamos a una funcion que devuelve una Tabla con las unidades, dependiendo del codigo de producto
Dim Celda As DataGridViewComboBoxCell = DirectCast(fila.Cells("txt_unidad").Value, DataGridViewComboBoxCell)
Dim parr(2) As System.Object
parr(0) = "aqa"
parr(1) = "B"
parr(2) = idArticulo
Dim ds As DataSet = ServicioWeb.EjecutarWS("sp_inv_articulo_unidad_sel ectcombo", parr)
If Not ds Is Nothing Then
dt = ds.Tables(0)
With Celda
.DataSource = dt
.ValueMember = "cod_unidad"
.DisplayMember = "des_unidad"
End With
End If
End Sub

no se si podrias ayudarme el porque me sale ese error.

Saludos

[devilinside]

En que momento te arroja el error y en que línea?

[Alokator]

Hola Amigo, yo ago lo que necesitas pero de una forma diferente:
GetAllElements("Select Almacen From AlmacenesUbicaciones Group by Almacen", DataGridView2)
Dim apt As String
For Each Row As DataGridViewRow In Me.DataGridView2.Rows
apt = Row.Cells(0).Value
Almacen.Items.Add(apt)
Next
primero cargo los registros de mi tabla en un datagridview, luego con For Each recorro cada fila y la boy agregando al combo box del datagridview, y para realizar una accion al cambiar el valo del combo ago lo siguiente:
Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
If DataGridView1.Columns(e.ColumnIndex).Name = "Almacen" Then
'eliminar row
GetAllElements("Select Ubicacion From AlmacenesUbicaciones Where Almacen = '" & DataGridView1.Item(5, DataGridView1.CurrentRow.Index).Value & "'", DataGridView2)
Dim apt As String
Ubicacion.Items.Clear()
For Each Row As DataGridViewRow In Me.DataGridView2.Rows
apt = Row.Cells(0).Value
Ubicacion.Items.Add(apt)
Next
End If
End Sub

Saludos