By default, CR keeps the data from when the report was designed. You can turn this off on the File menu in Crystal Reports. You can also call Crystal's DiscardSavedData() method.


>Hello All,
>
>I'm working on learning how to use Crystal Reports with VFP and need help finding out the syntax of the commands used to connect the new data to a cr report.
>
>The code below is what I've got so far.
>
>Can anyone please give me guidance on what I need to do to make sure the new table data is reflected in the report.
>
>TIA
>
>Jim Harvey
>jharvey@netrax.net
>
>
>
>
>********** stfrmtravel.m_travelview()
>select stnhorse.cons_no as cons_no, name, color, sex, date_foal, sire1, dam1, ;
>iif(stnconsi.fname = " ",alltrim(stnconsi.lname),alltrim(stnconsi.fname) + " " + ;
>alltrim(stnconsi.lname)) as consignor ;
>from stnhorse, stnconsi where stnhorse.cons_no = ThisForm.Sttxtcon.value and ;
>stnhorse.cons_no = stnconsi.cons_no order by stnhorse.cons_no, sire1, dam1 ;
>into table sttravel nofilter
>thisform.crxapplication = createobject("CrystalRuntime.Application")
>************************************************************
>*
>* How do you connect the data to the report?
>* The data is in the free table created in the above select statement.
>* Initially I created the sttravel.dbf in the vfp command window first and, then
>* created the crystal report strptravel.rpt
>* I did not click on save data with report because I want to have the data refresh at runtime.
>* Is this where I would put the code to connect the new data to the cr report?
>* I've been looking at the developer help files but can't seem to find the syntax for
>* linking/connecting the new data.
>*
>*
>*
>*
>* vfp table name is sttravel.dbf (this is a free table)
>*
>*
>**************************************************************
>thisform.crxreport = thisform.crxapplication.openreport("C:\sales\stndbred\2000\strptravel.rpt")
>thisform.crxexportoptions = thisform.crxreport.exportoptions
>with thisform.crxexportoptions
> .formattype = (14)
> .destinationtype = (1)
> .diskfilename = ("c:\sales\stndbred\2000\strptravel.doc")
>endwith
>thisform.crxreport.export (.f.)