CRYSTAL REPORT 11 VB 6 - ERRO COM FORMULA

ZENORATO 15/11/2010 09:50:48
#357466
Oi Pessoal,

Estou migrando relatórios do CRystal 4.6 para o Crystal 11 e até agora tava tudo tranquilo mas estou tendo dificuldades para trabalhar com formulas.

Tenho no cabeçalho dos meus fórmularios uma formula chamada periodo onde passo o periodo pelo VB mas ao executar o código abaixo retora o erro : [Ô]Subscript out of range[Ô], algúem poderia me ajudar com isso :
PS : o erro ocorre ao executar a linha [Ô]RelRep.ParameterFields(0) =......[Ô]

Set RelRep = RelApli.OpenReport(GSt_Caminho & [Ô]\[Ô] & NomRelat)
crRptRouter.AddReport RelRep

If strFormula <> [Ô][Ô] Then
RelRep.RecordSelectionFormula = strFormula
End If

RelRep.ParameterFields(0) = [Ô]periodo;[ô]Resumo de vendas de 01/06/2010 até 20/06/2010[ô];true[Ô]

Report.ReportSource = crRptRouter
Report.ViewReport
FrmCrystal.Show
ZENORATO 28/11/2010 11:46:48
#358361
Salve pessoal, consegui resolver meu problema. Segue o código fonte com a solução:

Set RelRep = RelApli.OpenReport(GSt_Caminho & [Ô]\[Ô] & NomRelat)
crRptRouter.AddReport RelRep

If strFormula <> [Ô][Ô] Then
RelRep.RecordSelectionFormula = strFormula
End If

For n = 1 To tamParametro
For I = 1 To RelRep.FormulaFields.Count
If LCase(RelRep.FormulaFields.Item(I).Name) = LCase(Vet_Des_Parametro(n)) Then
RelRep.FormulaFields.Item(I).Text = Vet_Val_Parametro(n)
I = RelRep.FormulaFields.Count + 1
End If
Next
Next

Report.ReportSource = crRptRouter
Report.ViewReport
FrmCrystal.Show
Tópico encerrado , respostas não são mais permitidas
Voltar