Visual Basic.NET - Combobox SQL Seleccionar

Saludos mis estimados, remito ante ustedes mi siguiente consulta, bien sabre agradecer sus buenos oficios al respecto:
Cargo un combobox con la descripción de productos por medio de un procedimiento almacenado

ALTER PROC [dbo].[pa_ListarProductos]
AS
SELECT cod_producto, des_producto, costo_porunidad,existencia_unidad
FROM tbProductos
ORDER BY des_producto

en mi aplicación quisiera que al hacer clic en la descripción me seleccione el costo por unidad y lo traslade a un campo de texto

Agradecido
Bendiciones

Hola,

Cuando cargas un ComboBox con el resultado de una consulta, supongo que utilizar un DataAdapter para ejecutar esta consulta y lleanr un DataTable (por ejemplo, DT es la DataTable).
Para dar los datos al ComboBox, escribes :

ComboBox.DataSource = DT
ComboBox.DisplayMember = "des_producto" ' o cod_producto

Si añades la linea :

ComboBox.ValueMember = "costo_porunidad"

Entonces, en el evento ComboBox1_SelectedIndexChanged(... ), puedes escribir : TextBox1.Text = ComboBox1.SelectedValue.

No he pruebo este ejemplo. Si no funciona, envia tu codigo.

Muchas gracias por tu tiempo Phil, exactamente asi lo cargo!
y tu ejemplo funciona muy bien, solo que yo capturo en Combobox.ValueMember el código del producto para con dicho código actualizar la existencia del mismo
mi código:

acá genero lo consulta en el DataAdapter


'Función que lista los Productos Para las busquedas rapidas
Public Function ListaProductos() As DataSet

Dim Consulta As New DataSet

cn = objConectar.Conectar
cmdsql = New SqlDataAdapter("pa_ListarProductos", cn)
cmdsql.Fill(Consulta, "ListProductos")

Return Consulta

'cierro los objetos
Consulta.Dispose()
cmdsql.Dispose()
cn.Dispose()

End Function

acá cargo el combo con los datos de la consulta

Private Sub CargaComboProductos()

CmbProducto.DataSource = CPNegocio.ListaProductos.Tables("ListProductos")
CmbProducto.DisplayMember = "des_producto"
CmbProducto.ValueMember = "cod_producto"

End Sub

acá capturo el código del producto para efecto de la actualización de la existencia

Private Function CapCodProducto() As Integer
Return CmbProducto.SelectedValue
End Function

En este caso, necesito tener el cod_producto para al momento de guardar la relación de entrada de mercancía relacione al producto
pero también y es mi consulta me gustaría que al seleccionar el producto de la consulta del combo lograse captar el precio del producto seleccionado


.

Hola,

Me parece que este costo_porunidad que debe ser escrito en el codigo para cargar el ComboBox :

CmbProducto.ValueMember = "costo_porunidad"

En la propiedad DisplayMember, este debe ser des_producto o cod_producto, este quieres mostrar.

En tu código, la selección de un "Item" del ComboBox da el cod_producto en el ValueMember, no el costo_porunidad.

Sobre la Function CapCodProducto() , me parece mejor de escribir estas líneas de códigos en el procedimiento SelectedIndexChanged del ComboxBox.

Quizá no comprendo bien este quieres ...

Ok Phil, creo que no me explicado bien, reformularé mi consulta:

Si teniendo un ComboBox, asociado a una consulta de una tabla de productos, (cod_producto, des_producnto, costo_porunidad, existencia)
En dicho ComboBox tengo la propiedad DisplayMember direccionada a "des_producto", de manera que al desplegar la lista se pueda indentificar por nombre los items que componen la consulta.

Private Sub CargaComboProductos()

CmbProducto.DataSource = CPNegocio.ListaProductos.Tables("ListProductos")
CmbProducto.DisplayMember = "des_producto"
CmbProducto.ValueMember = "cod_producto"

End Sub

Al seleccionar un producto, me pueda mostrar en un textbox el costo_porunidad, en el codigo que ves allí arriba asigno la propiedad ValueMember al cod_producto porque necesito guardar el codigo del producto al registrar la carga de la existencia, y no se como capturarlo de otra manera,..

es decir, como capturar el cod_producto y el costo_porunidad del item que se seleccione en el combobox

o si cambio la propiedad ValueMember = "costo_porunidad" como obtener el cod_producto para guardarlo
gracias una vez mas por tu tiempo
mil excusas

Sí. Comprendo que tienes muchos datos sobre un producto y el CombBox muestra des_producto. Cuando seleccionas un des_producto, muestras costo_porunidad en un TextBox. Tu pregunta es como también tener el cod_producto del producto seleccionado.

Debes trabajar con el DataTable CPNegocio.ListaProductos.Tables("ListProductos"). El, sabe todas informaciones.
Espero tener el tiempo de hacer un ejemplo ... Debo ya lo tener en francés, debo lo buscar y lo traducir.

...

Este el video para te mostrar : https://www.dropbox.com/s/odd0hba76hkg1a6/Anibal.mp4?dl=0
Adjunto mi proyecto para ti ver los códigos y los probar (es un DB Access, espero que puedes ejecutar).

Si tienes preguntas ... las envia.

• TestAnibalDBSimple.zip(472,7 KB)

Continuacion ....

Si agregas el código siguiente en mi programa, obtienes una herramienta en mas :

Saludos Phil, agradecido por tu tiempo,
logré bajar el ejemplo muy ilustrativo gracias,
ajusté algunas cosas en mi proyecto pero me da error,
estoy adjuntando el proyecto a ver si lo logras ver analizar y aportarme

en la imagen esta el error

Hola,

Los Bindings deben ser escritos donde escribes los parámetros del ComboBox.
Mira mi código, todos estos detalles están escritos en un mismo procedimiento, el procedimiento "MostrarDatos".

DataBindings.Add debe ser al mismo nivel que la escritura de DataSource.
Si has escrito el DataBindings.Add para el TextBox CostoUnitario y el campo Costo_unidad, no es mas necesario de escribir en el procedimiento CmdProducto_SelectedIndexChanged. Este procedimiento puede ser vacía, puede ser quitado. El mostrado es automatico.

Para obtener un valor de un campo que no es en el ComboBox, escribo el código en el evento Leave. lo se ejecute solamente cuando el ComboBox es dejado, por ejemplo cuando ti "Click" el botón "Registrar las cambiadas". Este es el momento donde el cod_producto es necesario.

Revisa mi codigo :

Tendré un poco tiempo en la tarde.

Espero que este te ayudará ...

Saludos Phil, nuevamente agradezco tu tiempo y dedicación a querer ayudar, orientar gracias
hice las recomendaciones que me indicas
este es el espacio donde cargo el combo cmbProductos
Private Sub CargaComboProductos()
For Each C As Control In Me.Controls ' Para muchas pruebas, es necesario de borrar anticas enlaces
Try
C.DataBindings.Clear()
Catch
End Try
Next
CmbProducto.DataSource = CPNegocio.ListaProductos.Tables("ListProductos")
CmbProducto.DisplayMember = "des_producto"
CmbProducto.ValueMember = "costo_porunidad"

TxtCostoUnitario.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "costo_porunidad")
TxtNroDocumento.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "cod_producto")

End Sub

Correcto se eliminó el error con los Bindings, pero no cambia el valor al cambiar de Item o de producto
tu me dices que ello es automatico pues en mi caso no lo hace se queda en el primero de la lista del combo,

Tu código parece me bien. No comprendo el problema

He cambiado muyo para quitar el DataGridView, para ser seguro que no da influencia.

He ejecutado mi código y hecho el video. Vea : https://www.dropbox.com/s/l7zkldmxxxsyu0o/Anibal2.mp4?dl=0

El MessageBox que viene es dado por el procedimiento Leave cuando dejo el ComboBox. El Id mostrado es correcto.

Debes ser seguro que el ComboBox tiene todos sus parámetros por defecto, ningún parámetro cambiado en el cuadro de Propiedades.
También a ver que no existe otro procedimiento del ComboBox que pueden se activar.

Te propongo de enviar me los códigos de los procedimientos que cargan los datos, mejor todos los códigos del Form que muestras en tu mensaje.

...

Saludos Phil alli te expongo a continuación todo el codigo que corresponde al formulario

Imports System.Windows.Forms
Imports CapaNegocio
Imports CapaEntidades
Public Class FrmRecepProducto
Dim CPNegocios As New CNProveedores
Dim CPNegocio As New CNProductos
Dim CPNegocioItem As New CNTempRecep
Dim CPNegocioRecep As New CNRecepcion
Dim CPNegocioDetRecep As New CNDetalleRecepcion
Dim NroItem As Integer
Dim ExistProd As Integer
Dim NvaExistencia As Integer
Private Sub FrmRecepProducto_Load(sender As Object, e As EventArgs) Handles MyBase.Load

TxtFecha.Text = Date.Now.ToString("g")
TxtCodigo.Text = CPNegocioRecep.NuevRegEntrada
Call CargaComboProveedores()
Call CargaComboProductos()
Call CargaComboLotes()
Call CargaComboTipoDoc()
Call SetupGridDetalleItems()
For Each C As Control In Me.Controls ' Para muchas pruebas, es necesario de borrar anticas enlaces
Try
C.DataBindings.Clear()
Catch
End Try
Next

End Sub
Private Sub CargaComboProveedores()

CmbProvee.DataSource = CPNegocios.ListaProveedores.Tables("ListProveedores")
CmbProvee.DisplayMember = "nom_proveedor"
CmbProvee.ValueMember = "cod_proveedor"

End Sub
Private Sub CargaComboProductos()
For Each C As Control In Me.Controls ' Para muchas pruebas, es necesario de borrar anticas enlaces
Try
C.DataBindings.Clear()
Catch
End Try
Next
CmbProducto.DataSource = CPNegocio.ListaProductos.Tables("ListProductos")
CmbProducto.DisplayMember = "des_producto"
CmbProducto.ValueMember = "costo_porunidad"

TxtCostoUnitario.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "costo_porunidad")
TxtNroDocumento.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "cod_producto")

End Sub
Private Sub CargaComboLotes()
CmbLotes.DataSource = CPNegocio.CargaComboLotes.Tables("Lotes")
CmbLotes.DisplayMember = "num_lote"
CmbLotes.ValueMember = "cod_lote"
End Sub
Private Sub CargaComboTipoDoc()

CmbTipoRecepcion.DataSource = CPNegocioRecep.CargaComboTipoEntrada.Tables("TipoEntrada")
CmbTipoRecepcion.DisplayMember = "des_tipodoc"
CmbTipoRecepcion.ValueMember = "cod_tipodoc"

End Sub

Private Sub BtnListarProvee_Click(sender As Object, e As EventArgs) Handles BtnListarProvee.Click
Dim listaProveedores As New FrmListaProveedores
If listaProveedores.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
Me.CmbProvee.Text = listaProveedores.TxtBuscar.Text
'frmDetalle.Dispose()
End If
End Sub

Private Sub BtnMaeProvee_Click(sender As Object, e As EventArgs) Handles BtnMaeProvee.Click
FrmProveedores.ShowDialog()
End Sub

Private Sub BtnListaProductos_Click(sender As Object, e As EventArgs) Handles BtnListaProductos.Click
Dim listaProductos As New FrmListaProductos
If listaProductos.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

Me.TxtCostoUnitario.Text = listaProductos.TxtCostoProducto.Text
Me.CmbProducto.Text = listaProductos.TxtBuscar.Text
ExistProd = Val(listaProductos.TxtExistencia.Text)
'frmDetalle.Dispose()
End If
End Sub

Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click
If TxtCantidadItem.Text <> String.Empty Then
Dim ObjetoAgregar As New CETemprecep
Dim Total As Double = 0
Dim iTotal As Integer = Me.DGDetalleItem.Rows.Count

ObjetoAgregar.CodItem = CapNroItem()
ObjetoAgregar.CodProducto = CapCodProducto()
ObjetoAgregar.CodLoteItem = CapCodLote()
ObjetoAgregar.CantidadItem = CapCantidad()
NvaExistencia = ExistProd + CapCantidad()
ObjetoAgregar.NuevaExistencia = NvaExistencia
ObjetoAgregar.PrecioUni = CapCostoUni()
ObjetoAgregar.TotalItem = CapTotalItem()

CPNegocioItem.AgregarNuevoItem(ObjetoAgregar)

DGDetalleItem.DataSource = CPNegocioItem.ListarItemsTemp.Tables("TempItems")
For Each Col As DataGridViewRow In DGDetalleItem.Rows
Total += Val(Col.Cells(6).Value)
Next
TxtTotalDoc.Text = Total.ToString("#.##0,00")
TxtSubTotal.Text = Total.ToString("#.##0,00")
'DGDetalleItem.DataMember = "Consulta"
Else
MsgBox("Verifique Cantidad!!!", MsgBoxStyle.Information, "SistemFarm")
TxtCantidadItem.Focus()
End If
End Sub
Private Function CapCodProducto() As Integer
Return CmbProducto.SelectedValue
End Function
Private Function CapCodLote() As Integer
Return CmbLotes.SelectedValue
End Function
Private Function CapCantidad() As Integer
Return TxtCantidadItem.Text
End Function
Private Function CapCostoUni() As Decimal
Return TxtCostoUnitario.Text
End Function
Private Function CapTotalItem() As Decimal
Return TxtTotalCosto.Text
End Function
Private Function CapNroItem() As Integer
Return CPNegocioItem.NuevoItem
End Function

Private Sub TxtCantidadItem_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtCantidadItem.KeyPress
If Char.IsNumber(e.KeyChar) Or Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

Private Sub DGDetalleItem_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGDetalleItem.CellContentClick
NroItem = DGDetalleItem.CurrentRow.Cells(0).Value
End Sub

Private Sub BtnQuitaItem_Click(sender As Object, e As EventArgs) Handles BtnQuitaItem.Click
Dim ObjEliminar As New CETemprecep
Dim Total As Double = 0
Dim iTotal As Integer = DGDetalleItem.Rows.Count
Dim NroItemSelec As Integer = NroItem

ObjEliminar.CodItem = NroItemSelec

CPNegocioItem.EliminaItem(ObjEliminar)

DGDetalleItem.DataSource = CPNegocioItem.ListarItemsTemp.Tables("TempItems")
For Each Col As DataGridViewRow In DGDetalleItem.Rows
Total += Val(Col.Cells(6).Value)
Next
TxtTotalDoc.Text = Total.ToString("#.##0,00")
TxtSubTotal.Text = Total.ToString("#.##0,00")

End Sub

Private Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
TxtImpuesto.Text = 0
Dim ObjAgregar As New CERecepcion

ObjAgregar.CodEntrada = CodEntrada()
ObjAgregar.FechaHoraEntrada = FechaHoraEntrada()
ObjAgregar.CodTipoDoc = TipoRecepcion()
ObjAgregar.CodProveedor = CodProveedor()
ObjAgregar.NroDoc = NroDoc()
ObjAgregar.FechaDoc = FechaDoc()
ObjAgregar.SubTotalDoc = SubTotalDoc()
ObjAgregar.ImpuestoDoc = ImpuestoDoc()
ObjAgregar.TotalDoc = TotalDoc()
ObjAgregar.StaDoc = StaDoc()

CPNegocioRecep.AgregaEntrada(ObjAgregar)

'agregare el detalle a la tabla detalle
Dim Total As Double = 0
Dim iTotal As Integer = Me.DGDetalleItem.Rows.Count
Dim ObjAgrDeta As New CEDetalleRecepcion

For i = 0 To iTotal Step 1
If i <> iTotal Then
ObjAgrDeta.CodEntrada = TxtCodigo.Text
ObjAgrDeta.NroItem = DGDetalleItem.Rows.Item(i).Cells(0).Value
ObjAgrDeta.DesProducto = DGDetalleItem.Rows.Item(i).Cells(1).Value
ObjAgrDeta.NroLote = DGDetalleItem.Rows.Item(i).Cells(2).Value
ObjAgrDeta.CantItem = DGDetalleItem.Rows.Item(i).Cells(4).Value
ObjAgrDeta.CostoItem = DGDetalleItem.Rows.Item(i).Cells(5).Value
ObjAgrDeta.ImpustoItem = 0.00
ObjAgrDeta.TotalItem = DGDetalleItem.Rows.Item(i).Cells(6).Value
ObjAgrDeta.StaDoc = StaDoc()

CPNegocio.ActualizaExistencia(DGDetalleItem.Rows.Item(i).Cells(7).Value, DGDetalleItem.Rows.Item(i).Cells(8).Value)

CPNegocioDetRecep.AgregarDetalleEntrada(ObjAgrDeta)
CPNegocioItem.LimpiarItemsTemp()
Else
DGDetalleItem.DataSource = CPNegocioItem.ListarItemsTemp.Tables("TempItems")
For Each Col As DataGridViewRow In DGDetalleItem.Rows
Total += Val(Col.Cells(6).Value)
Next

TxtTotalDoc.Text = Total.ToString("#.##0,00")
TxtSubTotal.Text = Total.ToString("#.##0,00")

TxtNroDocumento.Text = ""
TxtFechaDocumento.Text = ""
TxtCantidadItem.Text = ""
TxtCostoUnitario.Text = ""
TxtTotalCosto.Text = ""

MsgBox("Información de Recepción Actualizada")
End If
Next
End Sub
'Funciones para capturar los datos del encabezado de la recepción
Private Function CodEntrada() As Integer
Return TxtCodigo.Text
End Function
Private Function FechaHoraEntrada() As Date
Return TxtFecha.Text
End Function
Private Function TipoRecepcion() As Integer
Return CmbTipoRecepcion.SelectedValue
End Function
Private Function CodProveedor() As Integer
Return CmbProvee.SelectedValue
End Function
Private Function NroDoc() As String
Return TxtNroDocumento.Text
End Function
Private Function FechaDoc() As Date
Return TxtFechaDocumento.Text
End Function
Private Function SubTotalDoc() As Decimal
Return Val(Convert.ToDecimal(TxtSubTotal.Text))
End Function
Private Function ImpuestoDoc() As Decimal
Return Val(Convert.ToDecimal(TxtImpuesto.Text))
End Function
Private Function TotalDoc() As Decimal
Return Val(Convert.ToDecimal(TxtTotalDoc.Text))
End Function
Private Function StaDoc() As String
Return "1"
End Function

Private Sub TxtCantidadItem_TextChanged(sender As Object, e As EventArgs) Handles TxtCantidadItem.TextChanged

Dim ncan As Integer

Dim costo As Decimal
Dim total As Decimal

ncan = Val(TxtCantidadItem.Text)

costo = Convert.ToDecimal(TxtCostoUnitario.Text)

total = ncan * costo

TxtTotalCosto.Text = total.ToString

End Sub

Private Sub BtnMaeProductos_Click(sender As Object, e As EventArgs) Handles BtnMaeProductos.Click

FrmProductos.ShowDialog()

End Sub
Private Sub SetupGridDetalleItems()
DGDetalleItem.ColumnCount = 9
With DGDetalleItem
.ColumnHeadersDefaultCellStyle.Alignment = Windows.Forms.DataGridViewContentAlignment.MiddleCenter
.DataSource = Nothing
.GridColor = Color.Black
'.RowHeadersVisible = False

.Columns(0).HeaderText = "Item"
.Columns(0).DataPropertyName = "nro_item"
.Columns(0).Width = 50
.Columns(0).Visible = True


.Columns(1).HeaderText = "Descripción Producto"
.Columns(1).DataPropertyName = "des_producto"
.Columns(1).Width = 360
.Columns(1).Visible = True
.Columns(1).DefaultCellStyle.Alignment = Windows.Forms.DataGridViewContentAlignment.MiddleLeft

.Columns(2).HeaderText = "Nro Lote"
.Columns(2).DataPropertyName = "nro_lote"
.Columns(2).Width = 50
.Columns(2).Visible = False

.Columns(3).HeaderText = "Fecha Exp"
.Columns(3).DataPropertyName = "fecha_exp"
.Columns(3).Width = 90
.Columns(3).Visible = True

.Columns(4).HeaderText = "Cantidad"
.Columns(4).DataPropertyName = "cant"
.Columns(4).Width = 90
.Columns(4).Visible = True
.Columns(4).DefaultCellStyle.Alignment = Windows.Forms.DataGridViewContentAlignment.MiddleRight

.Columns(5).HeaderText = "Costo"
.Columns(5).DataPropertyName = "precio"
.Columns(5).Width = 90
.Columns(5).Visible = True
.Columns(5).DefaultCellStyle.Alignment = Windows.Forms.DataGridViewContentAlignment.MiddleRight

.Columns(6).HeaderText = "Total Item"
.Columns(6).DataPropertyName = "total"
.Columns(6).Width = 90
.Columns(6).Visible = True
.Columns(6).DefaultCellStyle.Alignment = Windows.Forms.DataGridViewContentAlignment.MiddleRight

.Columns(7).HeaderText = "Nva Existencia"
.Columns(7).DataPropertyName = "nva_existencia"
.Columns(7).Width = 286
.Columns(7).Visible = False

.Columns(8).HeaderText = "Codigo Producto"
.Columns(8).DataPropertyName = "cod_producto"
.Columns(8).Width = 1
.Columns(8).Visible = False
End With
End Sub

Private Sub CmbProvee_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbProvee.SelectedIndexChanged
TxtNroDocumento.Focus()
End Sub
End Class

Hola Anibal,

Lo siento, no he visto tu mensaje cuando es arribada. Ahora, aquí es la 22h y este es mañana que lo miraré con detalle.

Hoy, miro rápidamente tu código y veo un problema.


En el procedimiento CargaComboProductos(), has las Bindings :

Te propongo de borrar la cicla "Bindings.Clear" en el procedimiento FrmRecepProducto_Load.

Por favor, dice me la diferencia ante que estudio tu código mañana.

Buenas noches ...

hecho, ninguna diferencia, de hecho los borre del load, los tenia alli cuando hacia algunas pruebas
antes de que me recomendara que los dejara solo en el procedimiento de la carga del combobox
saludos
gracias

Hola Anibal,

Espero resultado hoy ... pero es muy difícil de depurar sin ejecutar

En CargaComboProductos(), no es normal que escribes :
TxtNroDocumento.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "cod_producto")
Quizá es mejor de escribir :
TxtCodigo.DataBindings.Add("Text", CPNegocio.ListaProductos.Tables("listProductos"), "cod_producto")

De otra manera, yo querría que probar la selección en el ComboBox ante haber "Click" ningun botón del Form. El Combo se llenar cuando el Form se abre y no es necesario de tocar un botón para probar el procedimiento CargaComboProductos().

Dice me ...

Continuacion ...

Es posible que envias me el codigos de la clase CNProductos ?

...

Saludos Phil espero estés bien,
fin de semana sin acceso a internet

te adjunto el enlace donde esta el proyecto espero puedas verificarlo completo
y espero puedas apoyarme

agradecido de antemano

https://drive.google.com/file/d/1YVZfRVdpo-Yxx1zi2FoPbR6UPwIK77y8/view?usp=sharing

Hola Anibal,

No puedo ejecutar tu programa y no puedo el depurar dinámicamente. No sé que es el objeto inicial.

He leo todos códigos en FrmRecepProducto, NRecepcion, CDManRecepcion, y varios otros. No veo donde es que impede los Bindings en TextBox de funcionar.

Pero veo otras anomalías (nada a ver con Bindings).
Este ejemplo viene de CDManRecepcion, pero existe mucho en el proyecto :


No me parece normal de instanciar un nuevo DataSet (la Consulta) para cada conexión. Para me, el DataSet debería ser único para todo el proyecto. Pero, la organización del proyecto es nCapas y no la conozco suficiente para intervenir.

Claro, no program con esta organización. Has visto mi ejemplo con los Bindings : un Form es suficiente para un grupo de datos.

La programación nCapas necesite mucho habito. Quizá deberías escribir en el titulo del mensaje cuando este es esta programación, ejemplo : Combobox SQL Seleccionar (nCapas).

Aqui, no puedo hacer mas ...
Si puedes me explicar como ejecutar ton proyecto, entonces miraré mas ...

...

Agradecido por tu tiempo y tomando nota de tus recomendaciones, seguiremos en contacto lastima no lograste correr el proyecto
para que vieras cual es el detalle que seguramente son problemas de forma mas no de fondo, sigo la programacion por capas por videos tutoriales y tratando de aprender y de fomentar dicho aprendizaje intenté realizar el proyecto,
tambien soy jubilado en el area de sistemas jamas trabaje con programas oriendados a objetos
de alli pues la gran variedad de problemas con las que me he conseguido
pero seguiremos adelante

Aun persiste el detalle de que al seleccionar del COMBOBOX el producto no me COLOCA en los TEXTBOX el COSTO del Producto y el CODIGO del Producto.-

agradecido grandemente hermano Phil por tu tiempo y dedicación


Saludos desde Venezuela

He ido de te enviar mensaje por el sito, mira tus correos ...

...