Discussion :

[_ChToM_]

Slt à tous

voila mon problème.

Je fais un petit programme VB6 qui traite des erreurs issues d'une base de données. Je voudrais afficher un rapport final à l'utilisateur par l'intermédiaire de Crystal Report 8.

Mon problème est que lorsque je veux passer une chaine de caractères plus longues que ~260 caractères, VB n'aime pas du tout et plante totalement. Je pense que c'est surtout Crystal Report qui n'aime pas la longueur de la chaîne...

Je voulais savoir si quelqu'un pouvait m'aider sur ce coup la car je suis un peu pommé...

Peut être avec un tableau dynamique???
Ou alors en modifiant mon état???
Mon paramètre sous Crystal Report est de type Chaine.

Je débute totalement sous VB6 et Crystal Report.


Merci d'avance pour le coup de main.

[Phifi]

Slt,

tu peux nous fournir un peu de code ?

[_ChToM_]

A vrai dire, j'ai un peu tout modifié depuis que j'ai posté le message...

Ca donnait à peu près ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    ...
    Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
    Dim crpParamDef As CRAXDRT.ParameterFieldDefinition
 
    'On récupère l'ensemble des paramètres de l'état d'entête
    Set crpParamDefs = RpReport.ParameterFields
 
    For Each crpParamDef In crpParamDefs
        With crpParamDef
            Select Case .ParameterFieldName
                Case "PARAM_STAT"
                    .SetCurrentValue my_string
                Case Else
                    .SetCurrentValue ""
            End Select
        End With
    Next
    ...

Pour tout dire, j'ai changé ma méthode mais je crois que c'est très porc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
...
   cpt2 = 1
   Do While cpt2 <= Taille_de_MonTableau
      RpReport.Areas(3).Sections(1).AddTextObject MonTableau(cpt2), 10, (200 * cpt2)
         cpt2 = cpt2 + 1
   Loop
...

Je vais découper ma longue chaîne de caractère en plusieurs chaînes de taille inférieure à 255, puis je stocke chaque bout de chaîne dans un tableau, et je recopie chaque case de mon tableau dans mon état.

Le problème, c'est que je crée à chaque fois un nouveau champ Text.


Quelqu'un a-t-il une solution plus propre???

[_ChToM_]

Bon j'ai essayé de faire ce que j'ai dit juste au dessus.

Le problème, c'est que il change de page à chaque ligne.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim tmp As String
    Dim tmp2 As String
    Dim maChaine As String
    Dim retourChariot As String
    Dim i As Integer
    Dim j As Integer
    Dim cpt2 As Integer
    Dim MonTableau() As String
    Dim monTab_temp() As String
 
    ReDim Preserve MonTableau(1 To (Len(uneChaine) / 255) + 1)
 
    retourChariot = Chr(13) & Chr(10) 'retour a la ligne
    maChaine = ""
    tmp2 = Replace(uneChaine, vbCrLf, retourChariot)
    cpt2 = 1
 
    For i = 1 To Len(uneChaine) Step n
        monTab_temp = Split(Mid(tmp2, i, n), retourChariot)
        For j = 1 To UBound(Split(tmp, retourChariot))
            RpReport.Areas(3).Sections(1).AddTextObject monTab_temp(j), 10, (200 * cpt2)
            cpt2 = cpt2 + 1
        Next
    Next