Como Inserir Uma Fórmula Em Detalhes Em Runtime(vb6)

[Guest --Fábio --]

Bom Dia, estou utilizando Crystal 10 + VB6

Pessoal, eu criei uma fórmula:

crxReport.FormulaFields.Add "Formula1", "{Produto.preço} * 0.10"

Depois de criar, como faço pra colocar essa fórmula na sections("D") por exemplo.

E aproveitando o tópico, também gostaria de saber como faço para suprimir uma sessão ou uma linha dependendo do valor de uma fórmula.

Tipo se Formula1 = 0, eu quero suprimir a linha em detalhes.

[kuroi]

cara nunca fiz esse tipo de coisa, mas tava olhando la e o objeto Report tem a propriedade Sections. ai você passaria o numero da Section. o Crystal deve reconhecer o numero pela ordem delas, talvez, de uma olhada e ve se você descobre. ai você tem o metodo AddFieldObject. tipo assim:

crxReport.Sections(index).AddFieldObject(Field, Left, Top)

ai é só você passar os parametros certinhos.

quanto a suprimir a Section quando a formula for 0, não sei se da via codigo Visual Basic. tenta dar uma estudada na propriedade Sections do objeto Report.

bom, mas sei como fazer isso direto no editor do Crystal. se isso ajudar você, da um toque ae.

[Guest Visitante]

Consegui criar uma fórmula e colocar em detalhes:

Dim crxFormula as CRAXDRT.FormulaFieldDefinition

Dim crxReport as CRAXDRT.Report

Dim Field as CRAXDRT.FieldObejct

'Criando Fórmula passando o Nome da Fórmula e seu Valor

Set crxFormula = crxReport.FormulaFields.add("Formula1","{ado.preço} * 0.10")

''

'Adicionando a Fórmula Sessão Detalhes

Set Field = crxReport.Sections("D").addFieldObject(crxFormula,8500,0)

''

'Fórmula Suprimida (opcional)

Field.Supress = True

''

Ainda não consegui fazer isso em Runtime, "sei fazer fazer apenas isso no crystal"....

Ex: Se o valor dessa Fórmula for menor que 1, ele suprima a sessão Detalhes

Alguém sabe mexer com o Supress (No Drill-Down) em runtime no VB6????