cRSYTAL COM SELECTION FORMULA NO VB

[jolienai 0]

QUANDO EXECUTO O SEGUINTE CIDUGO:Private Sub Command2_Click()Dim COD As StringCOD = Val(InputBox("digite me"))CrystalReport1.ReportFileName = "C:\Report\Report2.rpt"CrystalReport1.SelectionFormula = "{ALUNO.CODE}=" & CODCrystalReport1.Action = 1End SubDÁ O SEGUINTE ERROError in File C:\Report\Report2.rpt:Error in formula <Record_Selection>. '{ALUNO.CODE}=33'A string is required here.NO DEBUG O CURSO FICA NA LINHA DE CODIGO:CrystalReport1.Action = 1O QUE PODE ESTAR ERRADO?GRATO PELA AJUDA

[Veber 0]

Verifique se o campo CODE é numérico

[jolienai 0]

o campo CODE é do tipo texto....

[Veber 0]

se CODE é texto, então a pesquisa deve ser feita com exatidão usando aspas, ou não, usando LIKEentão, se o CODE for 0009 então o Selection Formula deve ser {ALUNO.CODE}='0009'ou selecionar todos os CODES que começam por 7 {ALUNO.CODE} LIKE '7*'Flows

[jolienai 0]

No caso ustlizo uma variavel do tipo String: CODseria então:Private Sub Command2_Click()Dim COD As StringCOD = Val(InputBox("digite me"))CrystalReport1.ReportFileName = "C:\Report\Report2.rpt"CrystalReport1.SelectionFormula = {ALUNO.CODE}= CODCrystalReport1.Action = 1End SubO estranho é que no debug o erro acontece na ultima linha:CrystalReport1.Action = 1

[Veber 0]

voce precisa por aspas simples no SelectionFormula.

 

SelecionFormula = "{ALUNO.CODE}='" & COD & "'"

no final, o SelectionFormula fica {ALUNO.CODE}='0'

 

porque CODE é um campo do tipo texto

 

tendeu?

[jolienai 0]

Agradeço muito a sua ajuda....Agora entendi.... vou testar....