Buenas tardes
Tengo un combobox que lleno con una lista de prendas desde un procedimiento almacenado
Capa Datos
Public Function CargarComboPrendas() As List(Of ent_prenda)
Dim ListaPrendas As New List(Of ent_prenda)()
Dim cnn As New SqlConnection(ConfigurationManager.ConnectionStrings("lava_cnn").ToString())
Try
Dim cmd As New SqlCommand("sp_lista_prendas")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
cnn.Open()
Dim dr_prendas As SqlDataReader = cmd.ExecuteReader()
While dr_prendas.Read()
Dim prenda As New ent_prenda
prenda.id_prenda = CInt(dr_prendas(0))
prenda.nom_prenda = Trim(CStr(dr_prendas(1)))
prenda.peso_prenda = CInt(dr_prendas(2))
prenda.val_marcacion = CDbl(dr_prendas(3))
ListaPrendas.Add(prenda)
End While
cnn.Dispose()
Catch ex As Exception
MsgBox(ex.Message,, "LAVAPOS")
End Try
Return ListaPrendas
End Function
Capa presentación
Public Sub VerPrenda()
Dim ListaPrendas As List(Of ent_prenda) = SelectPrenda.ListaPrendas()
If ListaPrendas.Count > 0 Then
cbox_nom_prenda.ValueMember = "id_prenda"
cbox_nom_prenda.DisplayMember = "nom_prenda"
cbox_nom_prenda.DataSource = ListaPrendas
cbox_nom_prenda.AutoCompleteMode = AutoCompleteMode.Suggest
cbox_nom_prenda.AutoCompleteSource = AutoCompleteSource.ListItems
cbox_nom_prenda.Text = "Seleccionar una Prenda..."
End If
End Sub
Con esta proceso selecciono el numero de la prenda y lo asigno a un textbox
Private Sub cbox_nom_prenda_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cbox_nom_prenda.SelectionChangeCommitted
txt_cod_prenda.Text = CStr(cbox_nom_prenda.SelectedValue)
End Sub
pero como selecciono los otros valores de la prenda seleccionada que están cargados en el combobox peso_prenda, val_prenda para poder asignarlos a otros texbox
Gracias
Freddy Aragon