CRYSTAL 8.5 - FORMULA

FEDERHEN 27/03/2012 17:09:02
#398422
Criei uma fórmula no crystal reports 8.5, chamada NomeCliente
Agora quero passar a partir do VB6 um valor para essa fórmula.

Alguem pode me ajudar com a sintaxe ???
FEDERHEN 28/03/2012 10:42:45
#398492
Bom, ...
Já que ninguem sabe...
Resolvi criar um campo na tabela que contem os dados do relatório e passar a informação por tabela...
Não era o que eu queria, mas se não tem outro jeito...
LLAIA 28/03/2012 11:06:19
#398498
Vc pode usando o controle Crystal Report Control assim:

cr.Formulas(0) = [Ô]NomeCliente=[ô]Seu texto[ô][Ô]
FEDERHEN 28/03/2012 12:53:59
#398526
Não existe propriedade formulas no meu Crystal 8.5

cr.[txt-color=#e80000]Formulas[/txt-color](0) = [Ô]NomeCliente=[ô]Seu texto[ô][Ô]

LLAIA 28/03/2012 13:34:57
#398534
Vc tá usando o Crystal Report Control?
FEDERHEN 28/03/2012 13:55:54
#398541
SIM

Uso o Crystal Report Viewer Control

Segue o código que aciona o relatório:

Dim Report As New Danfe [ô]este é o layout em formato .dsr
Private Sub Form_Load()
Report.Database.SetDataSource Cnt.Properties.Item([Ô]Data Source[Ô]).Value
Report.Database.Tables(1).Location = Cnt.Properties.Item([Ô]Data Source[Ô]).Value
Report.Database.Tables(2).Location = Cnt.Properties.Item([Ô]Data Source[Ô]).Value
Report.DiscardSavedData
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (100)
Screen.MousePointer = vbDefault
End Sub
ROBIU 28/03/2012 14:29:28
#398553 Resposta escolhida
Veja se esse link ajuda http://social.msdn.microsoft.com/forums/pt-BR/vsreportingpt/thread/f1517e66-6a9d-49f6-8bc4-2b29979ff227

nO CR9, eu faço o filtro pelo Select:

Dim Report As New CR9

Dim Rs As New ADODB.Recordset
Dim Sql As String


Form_Load

Sql = [Ô]select * From tabfunc wHERE... [Ô]
Rs.Open Sql, Conexao.Cnn, adOpenKeyset, adLockPessimistic
    If Rs.RecordCount = 0 Then
        MsgBox [Ô]Não existe Registro com este Critério[Ô]
        Exit Sub
    End If
    Report.DiscardSavedData
    Report.Database.SetDataSource Rs
    
    Rs.Close
Screen.MousePointer = vbHourglass
    CRViewer91.ReportSource = Report
    
    CRViewer91.ViewReport
    Screen.MousePointer = vbDefault
FEDERHEN 28/03/2012 17:48:38
#398618
Tópico encerrado , respostas não são mais permitidas
Voltar