agregar datos a mi combobox de un datagridview
Publicado por sonic83 (4 intervenciones) el 14/02/2009 11:59:18
hola tengo un datagridview de lineas de albaran, y tengo puesto mediante un combobox q me aparezcan los productos de la tabla productos y al seleccionar uno aparezca su nombre, mi problema sq tb tengo un campo precio, y en la tabla productos tengo dos campos pve y pvp, y quiero crearme un combox q se rellene con estos dos segun el codigo, alguien podria ayduarme porfavor!! pongo código por si alquien puede.
Private Sub LineasalbaranDataGridView_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LineasalbaranDataGridView.CurrentCellChanged
'procedemos a calcular el albaran
Dim ofila As DataGridViewRow
'apuntamos ofila a la fila actual
ofila = Me.LineasalbaranDataGridView.CurrentRow
Dim celdapos As Integer
If Not ofila Is Nothing Then
celdapos = LineasalbaranDataGridView.CurrentCell.ColumnIndex
If celdapos = 4 Then ' si es el campo descripcion
'obtenemos la decripcion del producto
'vemos que la celda referencia contega alguna referencia
'comprobar celda esta definida en el modulo varglobales
If Not comprobarcelda(ofila.Cells("dgvcodprod").Value) Is Nothing Then
Dim dtaproductos As ecocaceresDataSet.productosDataTable = Me.ProductosTableAdapter.GetDataByobtenernombreart(ofila.Cells("dgvcodprod").Value)
ofila.Cells("dgvnombreprod").Value = dtaproductos.Rows(0).Item("nombre_prod")
End If
End If
End If
End Sub
Private Sub LineasalbaranDataGridView_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LineasalbaranDataGridView.CurrentCellChanged
'procedemos a calcular el albaran
Dim ofila As DataGridViewRow
'apuntamos ofila a la fila actual
ofila = Me.LineasalbaranDataGridView.CurrentRow
Dim celdapos As Integer
If Not ofila Is Nothing Then
celdapos = LineasalbaranDataGridView.CurrentCell.ColumnIndex
If celdapos = 4 Then ' si es el campo descripcion
'obtenemos la decripcion del producto
'vemos que la celda referencia contega alguna referencia
'comprobar celda esta definida en el modulo varglobales
If Not comprobarcelda(ofila.Cells("dgvcodprod").Value) Is Nothing Then
Dim dtaproductos As ecocaceresDataSet.productosDataTable = Me.ProductosTableAdapter.GetDataByobtenernombreart(ofila.Cells("dgvcodprod").Value)
ofila.Cells("dgvnombreprod").Value = dtaproductos.Rows(0).Item("nombre_prod")
End If
End If
End If
End Sub
Valora esta pregunta


0