Visual Basic - Un Combo Aparentemente "IMPOSIBLE"

Life is soft - evento anual de software empresarial
 
Vista:

Un Combo Aparentemente "IMPOSIBLE"

Publicado por Jesus (3 intervenciones) el 06/07/2005 19:58:20
Hola:
tengo un archivo de texto con los siguientes campos:

"clave " registro" "nombre"

TOKSA 0501 JOSE GUTIERREZ
KIOTSI 1230 ANGELICA HERNANDEZ
QRTSO 1540 SERGIO MARTINEZ
Etc....

Dicho archivo lo abro muy bien con un combobox y me muestra todo el listado correctamente, clave, registro y nombre.

El problema es que yo necesito que me despliegue en el combo unicamente el nombre de la persona, (suprimiendo los campos clave y registro) y al seleccionar algun nombre, quiero que en un label me despliegue la clave y en otro label el registro correspondiente a la persona seleccionada.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Un Combo Aparentemente

Publicado por SuNcO (599 intervenciones) el 06/07/2005 20:07:18
Ok es facil.. pero como lo utilizas ? Con un control Data ? Con Ado ? Sql ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Un Combo Aparentemente

Publicado por SuNcO (599 intervenciones) el 06/07/2005 20:55:45
Disculpa pero lei mal tu pregunta.. pero aqui esta la solucion

Se ocupa un Combo, un ListBox (puede ser Visible=False) y 2 Labels

Private Sub Combo1_Click()
For i = 0 To List1.ListCount - 1
If List1.List(i) & " " Like "*" & Combo1 & "*" Then
Variable3 = Split(List1.List(i))
Label1 = Variable3(0)
Label2 = Variable3(1)
Exit Sub
End If
Next i
End Sub

Private Sub Command1_Click()
Open "c:\nombres.txt" For Input As #1
Do
Line Input #1, Variable1
List1.AddItem Variable1
Variable2 = Split(Variable1, " ")
palabra = ""
For i = 2 To UBound(Variable2)
palabra = palabra & Variable2(i) & " "
Next i
Combo1.AddItem palabra
Loop Until EOF(1)
Close #1
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar