Data Table added to graph on report?

[jwxpnd]

I’m trying to add a Data Table to my graph on my report. Which I am able to do.

The problem is forcing the Data Table to appear on the graph without having to BROWSE the table and CLICK the graph to update.

How do I do this?

Thank you,
Jon


CODE BELOW:

**** -------------------------------------------------------**** -------------- GRAPH ----------------------------------
**** -------------------------------------------------------
SELECT mygraph1
* parm1 - "AUTOGRAPH" && required
nChartType = 3 && * parm2 - chart type (number)
nChartSubType = 1 && * parm3 - chart subtype (number)
cTitle = " " && * parm4 - title (if not empty)
lSeriesByRow = .F. && * parm5 - series by row (.T.), by column (.F.)
lAddLegend = .T. && * parm6 - has legend (.T.)
lUseAutoformat = .T. && * parm7 - use autoformat (.F.)
cOutFile = "c:\test\mygraph.dbf" && * parm8 - name of output DBF for graph
cModGen = .T. && * parm9 - don't open graph when done
* parm10 - show nulls

DO (_GENGRAPH) WITH "AUTOGRAPH", nChartType, nChartSubType, cTitle, lSeriesByRow,lAddLegend,lUseAutoformat,cOutFile,cModGen

**** -------------------------------------------------------
**** -------------- ADD DATA TABLE -------------------------
**** -------------------------------------------------------

SELECT mygraph
cGField = "olegraph" && General field
oGform =CreateObject("form")
oGform.ADDOBJECT("ole1","oleboundcontrol")
oGraphRef = m.oGform.ole1
oGraphRef.ControlSource = m.cGField
oGraphRef.HasDataTable = .T.
oGraphRef.DataTable.HasBorderOutline = .T.
oGraphRef.DataTable.Font.Name = "arial"
oGraphRef.DataTable.Font.Size = 10
oGraphRef.DataTable.Font.Italic = .T.
oGraphRef.ChartTitle.Caption = "COMPARISON"
oGraphRef.refresh
** BROWSE

SELECT mygraph0
REPLACE olechart WITH mygraph.olegraph

 

[JimWWinter]

Does this show a separate graph for each row or is it a graph of all the rows in your table? If its the latter, would a SCAN ... ENDSCAN loop help?

Also, does oGraph have a Click event?

Regards,
Jim

 

[jwxpnd]

Thank you for your response.

There is no click event and a scan/end scan won't help.

It is graphing all rows in the table.

 

[JimWWinter]

Jon,

OK, can you explain how the three tables, MyGraph, MyGraph0, and MyGraph1 work together when you Browse and Click? I assume one of them is the source data for the graph but I'm unclear on the purpose of the other 2.

Regards,
Jim

 

[jwxpnd]

MYGRAPH1
Is a table that contains data from 2 other cursors (which has sorted all the information I want graph).
This creates the basic graph.


Graphing STEP 2:

MYGRAPH
Takes the graph in that was created in MYGRAPH1 (it is a GENERAL FIELD) and adds the DATA TABLE and any font changes etc…


Graphing STEP 3:

MyGraph0
Is the table that has been created by MYGRAPH which the GENERAL FIELD is used in my report.



The problem is that in order to make STEP 2 update. I am forced to have to BROWSE the table and double click on the GENERAL FIELD so that the changes are made to the graph.