de combo a textbox

Hola Sonia,

lo normal es que el ComboBox tenga un formato "Nombre" "Apellido" y que
estén separados por un espacio en blanco, por lo que para saber o dividir esa
parte en las correctas, deberías buscar el espacio en blanco y poner la parte
de la izquierda como Nombre y la parte de la derecha como Apellido.

De todos los modos, puede que te encuentres con un formato "Nombre" y
"Apellido" y que el Apellido tenga espacios en blanco, como por ejemplo "De
la Hoya". En este caso, la complejidad aumenta, por lo que una solución
factible sería la siguiente:

Public Structure MiEstructura
Public Descripcion As String
Public Clave1 As String
Public Clave2 As String
Public Overrides Function ToString() As String
Return Descripcion
End Function
End Structure

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Es As MiEstructura
Dim I As Byte
For I = 1 To 7
Es.Clave1 = "Espacio" & I
Es.Clave2 = I
Es.Descripcion = "Espacio" & I & " " & I
ComboBox1.Items.Add(Es)
Next
ComboBox1.SelectedIndex = 0
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
'Label1.Text = ComboBox1.SelectedText
Label1.Text = DirectCast(ComboBox1.SelectedItem,
MiEstructura).Clave1.ToString()
Label2.Text = DirectCast(ComboBox1.SelectedItem,
MiEstructura).Clave2.ToString()
End Sub


Espero que este ejemplo te ayude.

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Sonia" wrote:

una pregunta: si en un combo cargo 2 campos de una tabla (nombre y apellido)
de la siguiente manera:

mysql = "Select NOMBRX &' '& APELSX FROM TELEMARKETING WHERE KLVCOL='" &
clave1 & "';"

Llenar_combo(mysql, CadenaConexion, Combocontacto)

como puedo hacer para q al seleccionar uno

aparezca el nombre en un textbox y el apellido en otro?

gracias!!!