Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/04/2008, 15:35
LuZbA
 
Fecha de Ingreso: abril-2008
Mensajes: 31
Antigüedad: 17 años
Puntos: 0
Exclamación vb 6.0 archivo de texto a un MSFlexGrid

hola buena tarde a todos...

de nuevo dando lata... je...

en realidad no tengo idea de por que me truena esta asignacion de un archivo de texto a una grilla... la parte en negritas es la que me truena...

le podrian hechar un vistazo porfa... muchas gracias

con este me dice que error 30009 en valor asignado

Código:
Public Sub Cargar_texto()

Dim LTexto As String
Dim r, c As Integer
Dim separo() As String

r = 0

Open frmAcceso.Archivo For Input As #1

Do Until EOF(1)
    
    Line Input #1, LTexto
    
    separo = Split(LTexto, "|")

    for c = 0 to 5
        frmBitacora.MSFlexGrid1.Col (c) 'dandole igual me da lo mismo .col = c
        frmBitacora.MSFlexGrid1.Row (r) 'dandole igual me da lo mismo .row = r
        frmBitacora.MSFlexGrid1.Text = separo(c)
    next c
    
    r = r + 1

Loop

Close #1

End Sub

y tambien lo pongo asi y me manda el error 381 subindice fuera de intervalo

Código:
For c = 0 To 5
        frmBitacora.MSFlexGrid1.TextMatrix(r, c) = separo(c)
    Next c

Última edición por LuZbA; 17/04/2008 a las 15:37 Razón: aclaracion