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