18/05/2011, 15:59
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 5 meses Puntos: 5 | |
| Respuesta: cargar textbox seleccion combobox
listo, pongo la solución por si se puede mejorar, pero bueno ahí va..funcionaaaa
Public Sub cargaproductos()
Dim adaptador As New OleDb.OleDbDataAdapter("Select Plu,NomProducto From Productos", conexion)
Dim midataset As New DataSet
adaptador.Fill(midataset, "Productos")
Comboproducto.DataSource = midataset.Tables("Productos")
Comboproducto.DisplayMember = "NomProducto"
Comboproducto.ValueMember = "Plu"
'TextPlu.Enabled = False
End Sub
Private Sub Comboproducto_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Comboproducto.SelectedIndexChanged
Dim adaptador As New OleDb.OleDbDataAdapter("Select Plu,NomProducto From Productos", conexion)
Dim midataset As New DataSet
adaptador.Fill(midataset, "Productos")
Me.TextPlu.Text = CStr(midataset.Tables("Productos").Rows(Me.Combopr oducto.SelectedIndex)("Plu"))
End Sub |