Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/08/2005, 18:58
Avatar de JennyMedel
JennyMedel
 
Fecha de Ingreso: julio-2005
Mensajes: 25
Antigüedad: 18 años, 10 meses
Puntos: 0
Sincronizar un combobox con textbox

Hola mi problema es el sig. necesito combinar mis textbox con mi combobox "colores", o sea que cuando le de click por ejemplo a modelo 002020 se sincronice con mi combo"colores" y este me diga que modelo: 002020 es color "azul" lo estoy haciendo de esta manera solo que en vez de que me aparesca el color me aparece toda la lista de colores que tengo en mi tabla y no cambia cuando le doy sig

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

OleDbDataAdapter1.Fill(datos, "colores")
' datos=new dataset
' vincula el combobox1 y muestra el primer miembro.
ComboBox1.DataSource = datos.Tables("colores")
ComboBox1.DisplayMember = _
datos.Tables("colores").Columns("color").ToString

' rellena los cuadros de texto con los valores correspondientes.
PopulateTextBoxes(0)

' formatea los cuadros de texto.
TextBox1.TextAlign = HorizontalAlignment.Right
TextBox2.TextAlign = HorizontalAlignment.Right
TextBox2.Text = Format(TextBox2.Text, "Currency")

' Assign Text property for labels.
Label1.Text = "modelo"
Label2.Text = "precio"

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

' rellena los cuadros de texto con los valores correspondientes.
PopulateTextBoxes(ComboBox1.SelectedIndex)

End Sub

Sub PopulateTextBoxes(ByVal RowID As Integer)

the

Dim drw1 As DataRow = datos.Tables("colores").Rows(RowID)
TextBox1.Text = drw1("modelo")
TextBox2.Text = drw1("precio")

End Sub
__________________
("`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) _ `._ `. ``-..-'
(ll).-'' (((!.' ((!.-'
J E N N Y