Crystal Report, String et VB6

Version imprimable

21/09/2006, 16h02
_ChToM_

Crystal Report, String et VB6

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.
21/09/2006, 16h22
Phifi

Slt,

tu peux nous fournir un peu de code ?

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

Ca donnait à peu près ca :
Code:

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:

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???

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:

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