FoxPro/Visual FoxPro - Leer datos de un Grid para exportar a Tabla

   
Vista:

Leer datos de un Grid para exportar a Tabla

Publicado por Claudio claudiosan27@hotmail.com (5 intervenciones) el 28/11/2014 17:40:05
Buenas tardes alguien me puede ayudar para que despues de tener en pantalla un Grid cargado con datos quiero lograr leerlos para exportarlos a una tabla.

Muchas Gracias
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

Leer datos de un Grid para exportar a Tabla

Publicado por Fidel José (558 intervenciones) el 28/11/2014 21:32:03
Claudio
El control grid es un Browse algo sofisticado. Los datos lo tiene el cursor o tabla que se informa en el RecordSource.
Te tienes que manejar con ese cursor o tabla.
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

Leer datos de un Grid para exportar a Tabla

Publicado por Raposa (5 intervenciones) el 29/12/2014 11:14:42
Hola Claudio;
Debes tener un botón en la pantalla con este código más o menos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Local oExcel
oExcel = CREATEOBJECT("Excel.Application")    && Objeto Excel
TRY
	oExcel.VISIBLE = .T.    && Mostrar excel
	oExcel.Workbooks.ADD	&& preparo un nuevo trabajo de excel
	SELECT (THIS.PARENT.REGILLA1.RECORDSOURCE)        && Datos del Grid en este caso REGILLA1
	GO TOP
	nRows = 0
	WITH THIS.PARENT.REGILLA1
       * Esta operación se realiza tantas veces como registros tengas en el Grid
		nRows = 1
		SCAN
			nRows = nRows + 1
			FOR nColumn = 1 TO .COLUMNCOUNT
				oExcel.Cells(nRows, nColumn) = EVAL(.COLUMNS(nColumn) .CONTROLSOURCE)
			NEXT nColumn
		ENDSCAN
	ENDWITH
ENDTRY

Bueno, este sería el código más o menos aunque seguro que se puede mejorar.
Ojo, este código funciona para fox9 aunque solo con ver el comando TRY ya se puede intuir.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar