Visual Basic - PROBLEMAS AL CARGAR LA INFORMACION AL ARRAY

Life is soft - evento anual de software empresarial
   
Vista:

PROBLEMAS AL CARGAR LA INFORMACION AL ARRAY

Publicado por Alfonso Gutierrez (1 intervención) el 25/05/2009 15:37:40
Dim arreglo(10) As Double
Dim Numero(10) As Double
Private Sub Command1_Click()
If Len(Trim(no.Text)) = "" Then
MsgBox ("debe introducir un numero")
Text1.SetFocus
Else
Dim i As Long
Dim nt As Double
For i = 1 To UBound(Numero)
If Len(Trim(Numero(i))) > "" Then
nt = nt + 1
arreglo(nt + 1) = no.Text
Numero(nt + 1) = no.Text
no.Text = ""
no.SetFocus
End If
Next i
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To UBound(Numero)
If Len(Trim(Numero)) > 0 Then
List1.AddItem Numero(i) & ""
List2.AddItem arreglo(i) & "" / 3
End If
Next i
End Sub



ese es el codigo fuente donde no.text es la caja de texto que recibira los numeros, el problema esta en:
arreglo(nt + 1) = no.Text
da un error que es "Type mismatch"

la verdad no entiendo el por que ...si pueden decirme el error que tengo se los agradeceria..
gracias por la ayuda.
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

RE:PROBLEMAS AL CARGAR LA INFORMACION AL ARRAY

Publicado por Eduardo (47 intervenciones) el 25/05/2009 18:54:33
Intentas cargar una variable TEXTO en un array numerico. Debes hacerlo asi:

arreglo(nt + 1) = VAL(no.Text )
Numero(nt + 1) = VAL(no.Text )

Suerte
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