topic-26157

Posts: 130

Joined: Sun Mar 08, 2009 04:33 PM

Crystal report
Posted: Thu Apr 25, 2013 12:05 PM

This is an example of the report that working with DBF files. What should I change to work with DBF but via ODBC (dBase) connection?

Code (fw): Select all Collapse

DEFINE WINDOW oWndCry ICON oIco TITLE "IZVEŠTAJ"

  oCrys:=tOleAuto():New("CrystalRunTime.Application")

  oRpt:=oCrys:OpenReport("Test.rpt")
  oRpt:Database:Tables(1):Location:=cOsnDir+'/TempFakt.dbf'

  oCrRpt:=tActiveX():New(oWndCry,"CrystalReports11.ActiveXReportViewer.1")
  oCrRpt:SetProp("ReportSource",oRpt)
  oCrRpt:SetProp("DisplayGroupTree",.F.)
  oCrRpt:SetProp( "EnableExportButton", 1 ) 

  oCrRpt:DO("ViewReport")
  oWndCry:oClient:=oCrRpt
   
ACTIVATE WINDOW oWndCry MAXIMIZED

Regards,
Miloš

Best regards

Milos

[ FWH 21.11 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603) ]

FiveTech Support Forums

Continue the discussion