Discussion :

[Faladin]

Bonjour,

Je devrais p-e posté dans le forum de Crystal mais bon corrigé moi au cas..

Je travaille avec un crystal report qui lit d'un CSV et affiche un rapport. Le filtre pour le CrystalReportViewer est modifié avec ma form afin d'afficher que les données que l'utilisateur veut.

Le problème c'est que je dois comparer la valeur de l'utilisateur avec la concaténation de 2 colonne du CSV!

J'ai essayé comme suit mais ça ne fonctionn pas:

Code :

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

1
2
 
selection += "({" + nom_fichier + "_csv." + liste_col_wo(i) + "} AND " + "{" + nom_fichier + "_csv." + liste_col_wo(i + 1) + "}) = " + TBFilter.Text

OU (qui ne fonctionne pas non plus):

Code :

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

1
2
 
selection += "({" + nom_fichier + "_csv." + liste_col_wo(i) + "} + {" + nom_fichier + "_csv." + liste_col_wo(i + 1) + "}) = " + TBFilter.Text

Pour finalement aller dans:

Code :

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

1
2
 
FormRapport.CrystalReportViewer1.SelectionFormula = selection

Donc le but est de concaténé liste_col_wo(i) et liste_col_wo(i + 1) pour qu'il soit comparé à TBFilter.Text

CReport renvoi une erreur général quand j'Essaie d'exécuter la requête, du genre mauvais type de variable.

[Danyel]

Je te conseille deja, de ne pas utiliser le signe +, mais comme c'est de alphanumerique, d'utiliser le signe &.

Code :

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

selection &= ...

[Lefaucheux]

ou encore, pour une chaine de caractères, comme dans l'exemple :

Code :

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

1
2
3
 
selectio = "select distinct ch.[N°PRIX],ch.[ARTICLE],ch.[SOUS ARTICLE],ch.[PRIX EURO] from CHIFFRAGE ch " & _
            "where NUMAFFAIRE='" & aff.Replace("'", "''") & "' and NUMDEVIS='" & dev & "' and NUMLOT='" & lot & "' order by ch.[ARTICLE]"

ou dev , lot , etc...sont des variables
attention , mettre double quote + simple quote pour chaque encadrement sauf pour la dernière valeur

[Faladin]

Je te conseille deja, de ne pas utiliser le signe +, mais comme c'est de alphanumerique, d'utiliser le signe &.

Code :

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

selection &= ...

Je vais utiliser cette formule à l'avenir

Par contre ça répond toujours pas à ma question initiale.

Je n'étais probablement pas assez clair:

Les 2 premiers champs du CSV sont en fait un numéro de bon de commande qui a été fractionné en 2 parties, dûe à la limitation des PLC. Il faut donc que la recherche soit associé à la concaténation des bons de commandes pour l'utilisateur

Exemple:

Bon de commande initiale = 12345678

À cause du PLC, il est séparé en 2 champs:

BC_No1, BC_No2
où
BC_No1 = 1234 et BC_No2 = 5678

Et ensuite dans ma recherche on doit renseigner le bon de commande pour retrouver la commande, et je ne veux pas que les opérateurs aient à fractionner le tout, m'où ma demande si on pouvait concaténé 2 champs d'un csv dans une formule de sélection, un peu comme suit:

Code :

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

SELECT * WHERE (BC_No1 & BC_No2) = TEXTBOX

Peut-être est-ce plus clair?

[Faladin]

J'ai trouvé!

Voici mon code pour les générations futures
Noter que je devais effectuer la recherche sur 3 champs différents, divisés en 2 parties, donc 6 colonne. La valeur du WorkOrder dans le textbox est obligatoirement divisé par un "-"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public liste_col_wo() As String = {"WO_NUMBER_1_NUMBER_1", "WO_NUMBER_1_NUMBER_2", "WO_NUMBER_2_NUMBER_1", "WO_NUMBER_2_NUMBER_2", "WORK_ORDER_NUMBER_3_NUMBER_1", "WORK_ORDER_NUMBER_3_NUMBER_2"}
 
            For i = 0 To liste_col_wo.Count - 1 Step 2
                If i <> liste_col_wo.Count - 2 Then
                    selection += "{" + nom_fichier + "_csv." + liste_col_wo(i) + "} = " + Split(TBFilter.Text, "-").GetValue(0) + " AND "
                    selection += "{" + nom_fichier + "_csv." + liste_col_wo(i + 1) + "} = " + Split(TBFilter.Text, "-").GetValue(1) + " OR "
                Else
                    selection += "{" + nom_fichier + "_csv." + liste_col_wo(i) + "} = " + Split(TBFilter.Text, "-").GetValue(0) + " AND "
                    selection += "{" + nom_fichier + "_csv." + liste_col_wo(i + 1) + "} = " + Split(TBFilter.Text, "-").GetValue(1)
                End If
            Next

La bonne vieille logique booléenne vaincra toujours!

héhé

merci à tous