Jump to content
Fórum Script Brasil
  • 0

Vb + Crystal Report 9


Guest tesser
 Share

Question

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,

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0
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

Link to comment
Share on other sites

  • 0
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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.5k
×
×
  • Create New...