[Resolvido] Existe diferença na formula do CR4.6 para 8.5

[Flecha L 0]

Olá,

as respostas aqui estão escassas.....

 

Se alguém souber

 

Nessa sub abaixo uso para imprimir um relatorio feito no crystal 4.6

Dim strCargo As String

Dim strValor As String

 

 

strCargo = Combo1Rel.text

strValor = Combo2Rel.text

 

With cr1

.WindowState = 2

.DataFiles(0) = GetAppPath() & "Cust.MDB"

.ReportFileName = GetAppPath() & "Report1.rpt"

.SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'"

.Action = 1

End With

 

 

Recriei o relatorio com o mesmo nome, campos e grupos no Crystal 8.5

 

Só que dá erro na formula

 

erro 20515

ele substitui as variáveis na string da formula esta correta mas da o erro

informando que o campo name não é conhecido

 

Felcha

[scorpio 7]

Não tem muita não cara.

 

Como que fica o SelectionFormula com os valores?

 

 

 

[]'s

[Flecha L 0]

Já descobri

 

Fica assim o selectionform com os valores --> "{Customer." & cargo & "} = '" carcereiro &

 

Os valores foram substituidos certinho nas variáveis e mesmo assim ele mostra o erro

que o Customer.cargo = carcereiro --> não existe esse campo na tabela Customer.

 

Ai eu tentando criar uma formula no Datareport quando eu cliquei no campo cargo

ele criou assim {ado.Cargo} ué porque ADO o nome da tabela é Customer ?

 

Eu voltei na formula do visual basic no projeto e alterei o nome da tabela por ADO

 

Assim:

 

.SelectionFormula = "{ado." & strCargo & "} = '" & strValor & "'"

 

Pronto, funcionou beleza.

 

(Caramba!!!! 8 dias para descobrir isso.)

 

Fica a dica ai para futuras consultas.

 

Flecha

[scorpio 7]

Que bom que descobriu Flecha!

 

Obrigado por compartilhar!!

 

 

[]s