>FUNCTION DisplayReport >LPARAMETERS sReportFile, aTables > >oCrystalApp = CREATEOBJECT("CrystalRuntime.Application") >oReport = oCrystalApp.OpenReport(sReportFile) > >FOR nTable = 1 TO ALEN(aTables, 1) > sTable = aTables[nTable,1] > sAlias = aTables[nTable,2] > lFound = SetTableLocation(sTable, sAlias) >NEXT > >IF lFound > > ** Errors here > oReport.PrintOut(.F., .iCopies, .bCollated) > >ENDIF > > >******************************************** >FUNCTION SetTableLocation >LPARAMETERS sTable, sAlias > >oDataBase = oReport.Database >oTables = oDataBase.Tables > >FOR nTable = 1 TO ALEN(aTables, 1) > > sTable = aTables[nTable,1] > sAlias = aTables[nTable,2] > > FOR iTable = 1 TO oTables.Count > > oTable = oTables.Item(iTable) > > IF cAlias = UPPER(ALLTRIM(oTable.Location)) > > lFound = TRUE > oTable.SetTableLocation(cTable, JUSTSTEM(cTable), "") > > EXIT > > ENDIF > > ENDFOR > >NEXT > >RETURN lFound > >>