Vb + Crystal Report 9

[Guest tesser]

Ola Pessoal!

Tenho uma aplicação em VB6 + Crystal Report 9, até ai tudo beleza, preciso fazer o seguinte, tenho uma caixa de texto em um form1, digito o CODIGOFUNC e clico no Botão, então vai p/ o Form2 onde abre o relatórios do funcionário que digitei o codigo. No form2 tenho um CRViewer91. Como faço para passar os parametros para o Relatorios, e só acessar o funcinario que quero???

Muito Obrigado,

[Edilésio]

Caro amigo,

passe os seguintes comandos:

objeto.SelectionFormula = "{FUNCIONARIO.codfuncionario} = " & txtcodigo.text

objeto.RetrieveDataFiles

objeto.Action = 1

ou se você estiver usando a ferramenta dentro do próprio VB

você terá que passar os parametros na RecordSet

espero ter ajudado

[]s

[Guest - Ronaldo -]

Meu amigo, desta forma não funciona, pois estou usando o Crystal Report 9, já tentei e nada.

Por favor se tiver um exemplo de como trabalhar com VB6 e Crystal Report 9 fico grato,

Obrigado

[Guest - Edilésio -]

Acho que isso irá te servir.

Sub CarregaRelatorio()

Dim ReportOSAbertaFechadaParDefs As CRAXDRT.ParameterFieldDefinitions

Dim ReportOSAbertaFechadaParDef As CRAXDRT.ParameterFieldDefinition

Set ReportOSAbertaFechadaParDefs = ReportOSAbertaFechada.ParameterFields

For Each ReportOSAbertaFechadaParDef In ReportOSAbertaFechadaParDefs

With ReportOSAbertaFechadaParDef

Select Case .ParameterFieldName

Case "DataReportInicio"

.SetCurrentValue (mskDataInicial)

Case "DataReportFim"

.SetCurrentValue (mskDataFinal)

End Select

End With

Next

ReportOSAbertaFechada.EnableParameterPrompting = False

ReportOSAbertaFechada.Database.SetDataSource RS, 3, 1

Screen.MousePointer = vbHourglass

frmCROSAbertaFechada.CRViewerOSAbertaFechada.ReportSource = ReportOSAbertaFechada

frmCROSAbertaFechada.CRViewerOSAbertaFechada.ViewReport

frmCROSAbertaFechada.Show

Screen.MousePointer = vbDefault

End Sub