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
j'ai ajouter un formula field (TOTAL_TEXT)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
mais ne marche pas ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Report.Formulas(1) = "TOTAL_TEXT = ' " & Digital(TOTAL_TEXT) & " ' "
Partager