lo que pasa es lo siguiente, estoy modificando un codigo que pille para aprender
y no me resulta llamar uno de los datos por que es un número, lo convierto a string pero me sale error, no entiendo mucho..pero aquí dejo el source para que alguien me heche una mano..
quiero que me pueda llamar palabras.
Código:
Y LLAMA ESTOS DATOSPrivate Sub LoadValues(ByVal vValue As Boolean) Dim i As Integer ComboN.Clear For i = 0 To TotalPerson - 1 ComboN.AddItem MyPerson(i).pName '*** Adding a new Item *** '*** Adding Numeric Value/Array Index depending upon the request *** <--- Aquí está lo que tengo que modificar o no.. para que pueda llamar texto ComboN.ItemData(ComboN.NewIndex) = IIf(vValue, MyPerson(i).pAge, i) Next i cboName.Refresh '*** Setting default Value into the combobox *** ComboN.Text = ComboN.List(DefaultText) End Sub
MyPerson(0).pName = "Pepe"
MyPerson(0).pCountry = "spain"
MyPerson(0).pAge = "20"
MyPerson(1).pName = "Zindal"
MyPerson(1).pCountry = "France"
MyPerson(1).pAge = "21"
Private Sub ComboN_Click()
Dim idx As Integer
idx = cboName.ListIndex
If chkValue.Value = vbChecked Then
txtAge.Text = ComboN.ItemData(idx)
ElseIf chkValue.Value = vbUnchecked Then
txtAge.Text = MyPerson(ComboN.ItemData(idx)).pAge
txtCountry.Text = MyPerson(ComboN.ItemData(idx)).pCountry
End If
End Sub
asi lo llama al seleccionar el combobox..
pero yo quiero que en el Año ".pAge".. pueda ser una palabra como los demas datos.
GRACIAS