[CR 7][VB6] alimenter une formule via le code Visual basic

[atifo]

je réaliser en vb 6 un module qui convers le total(boolean) en chaine de caractère
mais le problème comment je peux l'intégrer dans crystal report 7
sachant code voila le code de l'appel de crystal en vb

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmd_Imp_Click()
 
Dim condition AS String
Dim total_arabe AS String
condition = " {TRAVAUX.CODE_DECISION} = '" & CodeD & "'"
Report.ReportFileName = App.Path & "\Report1.rpt"
Report.Connect = CnDATA.ConnectionString
Report.WindowTitle = "report1"
Report.Destination = crptToWindow
Report.ReplaceSelectionFormula condition
Report.Formulas(0) = "USER='" & utilisateur & "'"
Report.Action = 1
Report.Reset

j'ai ajouter un formula field (TOTAL_TEXT)

mais ne marche pas ce code

Code :

1
2
 
Report.Formulas(1) = "TOTAL_TEXT = ' " & Digital(TOTAL_TEXT) & " ' "