galera é o seguinte, fiz um relatório em crystal 8.5  ai chamo ele pelo vb da seguinte maneira

Crp.ReportFileName = App.Path & "RTproduto.rpt"
Crp.SelectionFormula = "     "
Crp.SelectionFormula = "{{bolão.Data}} > ({qtdatual)}"
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1

 

nesse reletório tem 2 campos qtdmin e qtdatul, quero mostra no relatório somente os registros que qtdatual for menor que qtdmin

 

 

falow galera um abraço

afradeço desde jah

Crp.SelectionFormula = "{qtdatual} < {qtdmin}"

tenho mais um campo  quero pegar todos que a "{qtdatual} < {qtdmin}" da catgoria text1.text

falow

valeu

??????/?///??/

?!?!

Armando veja como faço esta pesquisa utilizando datainicial e final e mais alguns campos faça a adaptação para o seu caso :

Private Sub CmdPesquisar_Click()
On Error GoTo Trata_Erro

Dim lFormula   As String
lFormula = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
lFormula = lFormula & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormula = lFormula & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormula = lFormula & " and {bolão.Local} ='" & LocalC.Text & "' "

'para visualizar a formula
'MsgBox lFormula
Me.MousePointer = 11
Crp.DataFiles(0) = App.Path & "olao.mdb"
Crp.ReportFileName = App.Path & "Campeonato.rpt"
Crp.SelectionFormula = lFormula
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1
Me.MousePointer = 0

Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub