FoxPro/Visual FoxPro - crear graficos

 
Vista:

crear graficos

Publicado por Fran Rivera (1 intervención) el 30/04/2001 22:06:26
Como creo graficos en vfp6 sin utilizar el wizard
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

RE:crear graficos

Publicado por Jose (4 intervenciones) el 01/05/2001 08:43:16
yo lo hago asi....
primero creo una tabla, en este caso TBGRAPH, con un campo de tipo GENERAL. y en algun cmdbutton llamado GRAFICAR\CLICK pongo el siguiente codigo...


#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
#DEFINE bartype 3 &&-4099
#DEFINE coltype -4100
#DEFINE pietype -4102
#DEFINE lineatype -4098

Selec TBCulti

Wait Wind 'Espere... Graficando Datos ' NoClear NoWait

CostodelLote = 'Calidad' + TAB
cantidadx = 'Expotación ' + TAB
Cantidady = 'Nacional ' + TAB

Scan
CostodelLote = CostodelLote + TBCulti.CveCul + TAB
Cantidadx = Cantidadx + AllTrim(Str(TBCulti.CajExp)) + TAB
Cantidady = Cantidady + AllTrim(Str(TBCulti.CajNac)) + TAB
EndScan

CostodelLote = CostodelLote + CRLF + Cantidadx + +CRLF + Cantidady + TAB

Selec TBGraph
Go Top
Append General Grafica DATA m.CostodelLote &&Class "msgraph.chart"
ThisForm.Graph.ControlSource = 'TBGraph.Grafica'

Wait Clear

Selec TBCulti
Return

***BUENO ESPERO QUE TE SIRVA..
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