CRYSTAL REPORT VIA LOOP

XXXANGELSXXX 04/01/2011 12:19:01
#361050

Amigos, bom dia, aqui vejam so..utilizo crystal report XI nas minhas aplicações, estou com um relatorio para fazer que a quey ja esta pronta como abaixo, eu so queria entender a logica de como funciona no crystal, eu tenho que criar as formulas no crystal? e so chamar no vb? sempre que minha query ja ta pronta no vb.. abaixo a query.

Sql = [Ô]SELECT a.pesscodigo, a.pessnome,[Ô]
Sql = Sql & [Ô] COUNT(b.movclicodigo) AS Qtd ,[Ô]
Sql = Sql & [Ô] a.pessvlcontrato * 0.45 AS VlContrato,[Ô]
Sql = Sql & [Ô] a.pessvlcontrato * 0.45 / COUNT(b.movclicodigo) AS VlUnit [Ô]
Sql = Sql & [Ô] From [Ô]
Sql = Sql & [Ô] cadpessoas a, movimentoocorrencias b [Ô]
Sql = Sql & [Ô] Where [Ô]
Sql = Sql & [Ô] a.pesscodigo = b.movclicodigo [Ô]
Sql = Sql & [Ô] Group By a.pesscodigo, a.pessnome[Ô]
Sql = Sql & [Ô] Order By vlunit Asc[Ô]
MyRs.Open Sql, Conexao, adOpenKeyset, adLockOptimistic

crxRpt.DiscardSavedData
crxRpt.Database.SetDataSource MyRs

Dim i As Integer
Dim nomeFormula As String
For i = 1 To report.FormulaFields.Count
nomeFormula = UCase(report.FormulaFields.item(i).Name)

If nomeFormula = [Ô]{@TITULO}[Ô] Then
report.FormulaFields.item(i).Text = [Ô][ô][Ô] + titulo + [Ô][ô][Ô]
ElseIf nomeFormula = [Ô]{@FMLNOME1}[Ô] Then
report.FormulaFields.item(i).Text = FMLNOME1
ElseIf nomeFormula = [Ô]{@FMLNOME2}[Ô] Then
report.FormulaFields.item(i).Text = FMLNOME2


so que o seguinte.. nao entendi muito bem a logica.. tipo.. este campo @FMLNOME2 é uma formula no crystal, eu ja tenho que ter ela pronta dentro do crystal? ou seja configurada dentro do crystal?