Visual Basic Foro
Programación => Visual Basic .NET / C# => Mensaje iniciado por: fezaca en Enero 08, 2014, 12:32:41 pm
-
Hola a todos, tengo un formulario donde he puesto un ComboBox, me salen los datos de un campo de mi tabla, y quisiera que al hacer click con el raton pudiera ver el resto de datos que existen en los campos de mi tabla en varios TextBox que tengo en mi formulario
(8 TextBox en total).
Alguien me puede ayudar? Gracias :-[
-
En vb.net los controles de usuarios (Combobox) tienen una propiedad llamada Tag, esta propiedad te puede servir para guardar el Id o la clave principal del registro y en el evento change item del Combobox metes una consulta y una carga a los textbox para cargar los textbox no esta de mas decir que en el mismo change item antes de la consulta y la carga tienes que limpiar los textbox.
-
en realidad la propiedad se llamaba ItemData en VB6, ahora en .NET no esta mas, pero se puede implementar a traves de una clase y ahi guardar el ID.
saludos.
-
Hola colega fezaca :)
Agrega dos textbox y un combobox (TextBox1,TextBox2,ComboBox1)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Agregar_Combo()
End Sub
Private Sub Agregar_Combo()
ComboBox1.DisplayMember = "nombre"
ComboBox1.ValueMember = "id"
ComboBox1.DataSource = Obtener_Datos()
End Sub
Private Function Obtener_Datos() As DataTable
Dim Dt As New DataTable
Dim Dr As DataRow
'aca pongo esto como para tener unos datos en el datatable
'podrían ser los datos directos de tu BDD
Dt.Columns.Add(New DataColumn("id", GetType(Integer)))
Dt.Columns.Add(New DataColumn("nombre", GetType(String)))
Dr = Dt.NewRow()
Dr("id") = 10
Dr("nombre") = "pepe"
Dt.Rows.Add(Dr)
Dr = Dt.NewRow()
Dr("id") = 20
Dr("nombre") = "juan"
Dt.Rows.Add(Dr)
Dt.AcceptChanges()
Return Dt
End Function
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
TextBox1.Text = ComboBox1.Text
TextBox2.Text = ComboBox1.SelectedValue
End Sub
End Class
Espero te sirva ... salu2 8)