Cita:
Iniciado por erbuson 
Efectivamente, veo que captas la idea, debes introducir los datos a traves de un bucle, tanto para crear la cabecera como para pasar los datos, por ejemplo:
Código vb:
Ver original' Crear Cabeceras
GridCabecera Grid, 0, 800, "Codigo", "D"
GridCabecera Grid, 0, 2800, "Descripción", "I"
GridCabecera Grid, 0, 800, "Unidades", "D"
GridCabecera Grid, 0, 800, "Precio", "D"
' En un Bucle de lectura del Fichero
' Leer Registro
Fila = Fila + 1
GridPonerDato Grid, Fila, 0, DatoLeido
GridPonerDato Grid, Fila, 1, DatoLeido
GridPonerDato Grid, Fila, 2, DatoLeido
GridPonerDato Grid, Fila, 3, DatoLeido
' Volver al Bucle
Es la idea
hola erbunson!
Aqui hay dos puntos que me despistan, uno en
"Crear Cabeceras o Leer Registro " en una de las lineas cualquiera pones esto :
GridCabecera Grid, 0, 800, "Codigo", "D"
GridPonerDato Grid, Fila, 0, DatoLeido
si mi MSFlexGrid se llama MSFlexGrid1 y la orden de insertar un dato en la 1º linea, 1º columna del grid es.:
MSFlexGrid1.TextMatrix(0,0)
lo que no entiendo es tu linea por completo, pues "Fila" supongo es una variable llamada
Fila, "0" seria la columna 0 y
"DatoLeido" seria otra variable con el dato leido, pero ¿Donde esta el .TextMatrix() y en cabecera¿ que es el "800"?
Si no es mucho pedir, por que no me pones una liea de codigo teniendo en cuenta que en el archivo Datos.dat hay tres datos a leer que son : Horainicio, Horafin y Totalhoras esas serian las tres variables y datos a leer y escribir en una columna de tres filas y la columna es la 2ª por la izquierda y no tiene cabecera púes la cabecera es un Label.
Yo haria el codigo para visualizar asi, corrigemelo si esta mal, gracias.(He tenido en cuenta el modulo tal como lo escribistes por si es aqui donde se crean mis dusdas).
Código vb:
Ver originalPrivate Sub Form_Load()
Dim Horainicio As Integer
Dim Horafin As Integer
Dim Totalhoras As Integer
'Aqui llamamos al modulo SubGrid
Dim lcdTest As New SubGrid
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
' Asignamos los datos a las variables de visualización.
With cliente
.Horainicio = Trim(cliente.Horainicio)
.Horafin = Trim(cliente.Horafin)
.Totalhoras = Trim(cliente.Totalhoras)
End With
VisualizarDatos
End Sub
Private Sub VisualizarDatos()
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
' Mostramos los datos
MSFlexGrid1.TextMatrix(0,0) = .Horainicio
MSFlexGrid1.TextMatrix(1,0) = .Horaifin
MSFlexGrid1.TextMatrix(2,0) = .Totalhoras
End Sub
erbunson si me comentas como se puede insertar una imagen en un post te podre poner una imagen del proyecto para mas comprension de lo que estoy intentando.
Saludo2