Sort Values from DB to CR by Code
Hi to all:
I want extract values from my database to Crystal and I had write this code:
Code:
Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report
Dim formula As CRAXDRT.FormulaFieldDefinition
Set db = Workspaces(0).OpenDatabase(Progaves)
Set Rstalao = db.OpenRecordset("select * from talao")
aSQL = aSQL & " ORDER BY nomecomprador"
Set Data1.Recordset = Rstalao
Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Listagementregaaves.rpt")
Do While Not Data1.Recordset.EOF
comprador = Data1.Recordset![nomecomprador] & ""
expositor = Data1.Recordset![expositor] & ""
gaiola = Data1.Recordset![gaiola] & ""
Rpt.ParameterFields(1).AddCurrentValue (comprador) 'Comprador
Rpt.ParameterFields(2).AddCurrentValue (expositor) ' Expositor
Rpt.ParameterFields(3).AddCurrentValue (gaiola) ' Gaiola
Data1.Recordset.MoveNext
Loop
setviewersize
CRViewer1.ReportSource = Rpt
CRViewer1.ViewReport
Like you see a simple code that work if I want sort values to a ListView or for a MSflexgrid,but with CR the report sort in blank...
I think I want to do more for this work,but I'm here a litlle confused...
Any help please?
Thanks