Importar de un .dat o txt a MSFlexGrid

[erbuson]

Hola:

Asi analizando un poco por encima veo que estas utilizando la misma variable FilaG en dos sitios diferentes:

Si miras esta parte de tu código

For ContRegDias = 7 To ContRegDias
ActualizarDatoG
' Mostramos los datos en las celdas
Select Case dia_C
Case Is = "lunes": MSFlexGrid1.TextMatrix(FilaG, 0) = DatoG
Case Is = "martes": MSFlexGrid1.TextMatrix(FilaG, 1) = DatoG
Case Is = "miercoles": MSFlexGrid1.TextMatrix(FilaG, 2) = DatoG
Case Is = "jueves": MSFlexGrid1.TextMatrix(FilaG, 3) = DatoG
Case Is = "viernes": MSFlexGrid1.TextMatrix(FilaG, 4) = DatoG
Case Is = "sabado": MSFlexGrid1.TextMatrix(FilaG, 5) = DatoG
Case Is = "domingo": MSFlexGrid1.TextMatrix(FilaG, 6) = DatoG
End Select
' Aunque aquí sumas 1 a Fila G no sirve de nada porque en la anterior
' ActualizarDatos varías siempre su contenido
FilaG = FilaG + 1
Next

Creo que por ahí van los tiros ya que como comenté en alguna ocasión cada uno tiene sus porpias técnicas y es dificil introducirse en la idea de otro.