DataTable - Ajout d'une colonne calculée

Version imprimable

Bonjour à tous!!
ceci est mon premier message et ça commence bien!!

Voila en fait je suis sous vs 2005 et je crée une application winform.

J'ai creer une fonction afin de me calculer le nombre de couleurs sur plusieurs champs sachant qu'ils sont tous typé string :

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Public Function FctCalcNbCoul(ByVal XRECT1 As String, ByVal XRECT2 As String, ByVal XRECT3 As String, ByVal XRECT4 As String, ByVal XRECT5 As String, ByVal XRECT6 As String, ByVal XVERS1 As String, ByVal XVERS2 As String, ByVal XFONDCHQ As String) As Integer Dim NbCoul As Integer Dim cpt As Integer cpt = 0 If XRECT1 <> " " Then '''j'ajoute 1 au compteur si champ pas vide cpt = cpt + 1 If XRECT2 <> " " Then cpt = cpt + 1 If XRECT3 <> " " Then cpt = cpt + 1 If XRECT4 <> " " Then cpt = cpt + 1 If XRECT5 <> " " Then cpt = cpt + 1 If XRECT6 <> " " Then cpt = cpt + 1 If XVERS1 <> " " Then cpt = cpt + 1 If XVERS2 <> " " Then cpt = cpt + 1 End If End If End If End If End If End If End If End If XFONDCHQ = XFONDCHQ.Remove(0, 3) XFONDCHQ = XFONDCHQ.Remove(5, 9) NbCoul = CInt(XFONDCHQ) + cpt Return NbCoul End Function
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

ensuite j'ajoute une nouvelle colonne à ma datatable et j'utilise la fonction de cette manière :

Code:

oTable.Columns.Add("Nb Couleur", Type.GetType("System.Int32"), "FctCalcNbCoul(XRECT1_0, XRECT2_0, XRECT3_0, XRECT4_0, XRECT5_0, XRECT6_0, XVERS1_0, XVERS2_0, XFONDCHQ_0)")

Mais ô problème de mer noire un message d'erreur trop cool apparait :
----------------
L'expression contient un appel de fonction non défini FctCalcNbCoul()
---------------

Merci d'avance pour votre aide!

19/02/2009, 15h59
yroubag

Salut et bienvenue.

L'expression (3e param) doit être une expression de calcul de type SQL. ex: une colonne "Total" dont l'expression va être "prix * quantite", où [prix] et [quatite] sont des colonnes de la requête.
http://msdn.microsoft.com/en-us/library/632cdz7z.aspx

Pour ton problème, tu es mieux de créer une colonne vide, sans expression et ensuite de boucler sur chaque Row et affecter ta valeur obtenue de ta fonction dans celle-ci.

Suggestion: Pourquoi ne pas utiliser un tableau de paramètres plutôt que d'un paquet de variables?
Voir section ParamArray: http://plasserre.developpez.com/v1-12.htm
19/02/2009, 16h11
Ouggada

Merci de ton attention!
Je vais suivre tes conseils et essayer de suite!
et merci pour l'expplication!
19/02/2009, 16h16
Ouggada

mais du coup de quelle manière devrais-je m'y prendre pour faire un tableau de paramètre???
Car chaque ligne est soit vide soit à une couleur en string??

changement

Du coup j'ai suivi ton conseil et j'ai fait :
Code:

1 2 3 4 5 6 oTable.Columns.Add("Nb Couleur", Type.GetType("System.SByte"), " ") Dim myRow As DataRow For Each myRow In oTable.Rows FctCalcNbCoul("XRECT1_0", "XRECT2_0", "XRECT3_0", "XRECT4_0", "XRECT5_0", "XRECT6_0", "XVERS1_0", "XVERS2_0", "XFONDCHQ_0") Next myRow
mais comment faire pour lui spécifier que c'est dans la datacolumn "Nb Couleur"
qu'il faut mettre les résultats??

Merci d'avance!

20/02/2009, 09h56
Ouggada

j'ai trouvé comment spécifier la datacolumn :

myRow("Nb Couleur") = FctCalcNbCoul(...)

Mais j'ai un message d'erreur :

l'index et le compte doivent faire référence à un emplacement situé dans la chaine.
Nom du paramètre : count.

je ne comprend vraiment pas...
20/02/2009, 10h14
Ouggada

je l'avais pas mis au bon endroit...
du coup cela me crée ma colonne et pis rien d'autre, niet....
que faire??
20/02/2009, 11h14
Ouggada

up!

un pti up pour ceux qui ont eu le courage de lire jusqu'ici!!
si vous avez des idées je suis preneur meme si vous etes pas sûr...
:cry:

OK, avec tous ces messages je ne sais plus trop sur quoi tu bloques.

Pour le ParamArray, tu lui passe un tableau de String puisque tous tes paramètres étaient de ce type. Ça devrait donner de quoi dans le genre.
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Function FctCalcNbCoul(ByVal XFONDCHQ As String, ByVal ParamArray Couleurs() as String) As Integer Dim Ctr as Integer For each coul as string in Couleurs If coul <> "" Then Ctr += 1 End if Next ...

Du coup ma fonction est nickel, mais rien ne se rempli sur ma colonne en faisant :
Code:

1 2 3 4 5 6 oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"), " ") Dim myRow As DataRow For Each myRow In oTable.Rows myRow("NbCouleur") = FctCalcNbCoul("XFONDCHQ_0", Couleurs(7)) Next myRow
dsl pour les message précédents je n'avais pas vu comment insérer le code dans les balises!!

23/02/2009, 17h19
yroubag

1. Tu peux enlever ton paramètre vide à la fin, car il y a surcharge de la méthode.

Code:

oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"))

2. Pour ton tableau Couleurs(), tu dois le déclarer avant et lui affecter les valeurs pour chaque cellule AVANT de le passer à ta fonction. C'est peut-être déjà fait, mais je ne le vois pas dans ton bout de code.

3. Lorsque tu passes ton tableau Couleurs() à ta fonction, tu dois passer Couleurs() et non Couleurs(7) car ce dernier n'envoie que le 7e élément du tableau et non le tableau en entier.

Bonjour, et encore merci de vous pencher sur mon cas.

il ne me reste plus que ça à régler et j'ai finis mon petit programme!

En suivant vos conseil j'ai ceci :

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
25
26
27
Public Couleurs() As String = {"XRECT1_0", "XRECT2_0", "XRECT3_0", "XRECT4_0", "XRECT5_0", "XRECT6_0", "XVERS1_0", "XVERS2_0"}

Public Function FctCalcNbCoul(ByVal XFONDCHQ As String, ByVal ParamArray Couleurs() As String) As Integer

        Dim NbCoul As Integer
        Dim Ctr As Integer
        For Each coul As String In Couleurs
            If coul <> "" Then
                Ctr += 1
            End If
        Next

        XFONDCHQ = XFONDCHQ.Remove(0, 3)
        XFONDCHQ = XFONDCHQ.Remove(5, 9)

        NbCoul = CInt(XFONDCHQ) + Ctr

        Return NbCoul
    End Function

oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"))
            Dim myRow As DataRow
            For Each myRow In oTable.Rows
                myRow("NbCouleur") = FctCalcNbCoul("XFONDCHQ_0", Couleurs())
                oTable.Rows.Add(myRow("NbCouleur"))
            Next myRow

le problème est qu'il n'y a pas de message d'erreur à part sur le couleur() qui est en bleu et qui me renvoi en mode design : "le nombre d'indices est inférieur au nombre de dimensions du tableau indéxé"
Et le seul moyen d'enlever cette erreur est d'y mettre le chiffre 7 : Couleur(7)
mais ça ne marche pas...

Honnêtement, je sèche, je ne vois pas quoi faire de plus...

Pour information voila mon code complet :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Dim oDataset As DataSet = New DataSet("oDataset")
 
        Dim DateDebV As String
        DateDebV = ReportAutoBq.ComboBoxVisual.SelectedItem
 
 
        Try
 
            Dim oConnection As OracleConnection = New OracleConnection()
            oConnection.ConnectionString = "Server=OraOLEDB.Oracle; Data Source=X3_X32CLIP.clip-sa.local ;USER ID=odbc; PASSWORD=odbc"
 
            oConnection.Open()
 
            'CLIP.XDOSCLI2.XRECT1_0, CLIP.XDOSCLI2.XRECT2_0, CLIP.XDOSCLI2.XRECT3_0, CLIP.XDOSCLI2.XRECT4_0, CLIP.XDOSCLI2.XRECT5_0, CLIP.XDOSCLI2.XRECT6_0, CLIP.XDOSCLI2.XVERS1_0, CLIP.XDOSCLI2.XVERS2_0, CLIP.XDOSCLI2.XFONDCHQ_0
            'FctCalcNbCoul(XRECT1_0, XRECT2_0, XRECT3_0, XRECT4_0, XRECT5_0, XRECT6_0, XVERS1_0, XVERS2_0, XFONDCHQ_0) as Nb Couleur , 
            Dim oAdapt As New OracleDataAdapter("SELECT XBQABR_0, XCODBANK_0, XBQNAM_0, XCODPRO_0, CLIP.XDOSCLI.XCOMDAT_0, CLIP.XDOSCLI.XDCNUM_0, CLIP.XDOSCLI2.XRECT1_0, CLIP.XDOSCLI2.XRECT2_0, CLIP.XDOSCLI2.XRECT3_0, CLIP.XDOSCLI2.XRECT4_0, CLIP.XDOSCLI2.XRECT5_0, CLIP.XDOSCLI2.XRECT6_0, CLIP.XDOSCLI2.XVERS1_0, CLIP.XDOSCLI2.XVERS2_0, CLIP.XDOSCLI2.XFONDCHQ_0, " & _
            "XREFCLI_0, XDLIVDEM_0, DLVDAT_0, XBATDRET_0, SHIDAT_0, XQTEDEM_0, (QTY_0 * 1000) AS QTY_0, cast(XMONTANT_0 As Decimal (15,2)) As XMONTANT_0, NETWEI_0, CLIP.SDELIVERY.SDHNUM_0 FROM CLIP.XBANQUE, CLIP.SDELIVERY, CLIP.SINVOICED, CLIP.XDOSCLI, CLIP.XDOSCLI2 " & _
            "WHERE CLIP.XBANQUE.XBQNUM_0=CLIP.SDELIVERY.XBQNUM_0 " & _
            "AND CLIP.SDELIVERY.XDCNUM_0=CLIP.XDOSCLI.XDCNUM_0 " & _
            "AND CLIP.SDELIVERY.XDCNUM_0=CLIP.XDOSCLI2.XDCNUM_0 " & _
            "AND CLIP.SINVOICED.XDCNUM_0=CLIP.XDOSCLI.XDCNUM_0 " & _
            "AND CLIP.SDELIVERY.SDHNUM_0=CLIP.SINVOICED.SDHNUM_0 " & _
            "AND SHIDAT_0 > To_Date('31/12/2005', 'DD/MM/YYYY')", oConnection)
            'ComboBoxVisual.Text            'contient la valeur affichée correspondant à la ligne sélectionnée et déterminée par la propriété .DisplayMember
            'ComboBoxVisual.SelectedValue.ToString()   'réf d'objet non instancié...    'contient la valeur réelle qui sera utilisée en cas de bind et déterminée par la propriété .ValueMember
            'ComboBoxVisual.SelectedItem.ToString       'réf d'objet non instancié...   'contient l'item correspondant à la ligne sélectionnée.
            'SelectedIndex => la valeur numérique de la ligne
            'SelectedText => le texte qui apparait
            'SelectedValue => la valeur (cachée)
            'SelectedItem => l'objet ligne de la structure
 
            'Création d'une table contenat tous les champs requis
            Dim oTable As DataTable = New DataTable()
 
            'Remplissage de la datatable à partir de la requete sql
            oAdapt.Fill(oTable)
 
           oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"))
            Dim myRow As DataRow
            For Each myRow In oTable.Rows
                myRow("NbCouleur") = FctCalcNbCoul("XFONDCHQ_0", Couleurs())
                oTable.Rows.Add(myRow("NbCouleur"))
            Next myRow
 
            'Fermeture de la connexion afin de ne pas monopoliser les ressources
            oConnection.Close()
 
            Dim oDataview As DataView = New DataView()
            oDataview.Table = oDataset.Tables("oTable")
            oDataview = oTable.DefaultView
            oDataview.Sort = "SHIDAT_0"
            'oDataview.RowFilter = "SHIDAT_0 > '" & ReportAutoBq.ComboBoxVisual.SelectedItem & "' AND SHIDAT_0 < '" & ReportAutoBq.ComboBoxVisual2.SelectedItem & "'"
            'oDataset.AcceptChanges()
            'oDataview.RowFilter = "SHIDAT_0 > '" & DateDebV & "' AND SHIDAT_0 < '" & DateFinV & "'"
            oDataview.RowFilter = "SHIDAT_0 >= '01/01/" & DateDebV & "' AND SHIDAT_0 <= '31/12/" & DateDebV & "'"
 
            'Masquer certaines colonnes
            oDataview.Table.Columns("XRECT1_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XRECT2_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XRECT3_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XRECT4_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XRECT5_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XRECT6_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XVERS1_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XVERS2_0").ColumnMapping = MappingType.Hidden
            oDataview.Table.Columns("XFONDCHQ_0").ColumnMapping = MappingType.Hidden
 
            DataGridViewVisual.DataSource = oDataview
 
 
            ' Vérif si erreur
        Catch ex As Exception
            MsgBox("Erreur !!! " & ex.Message)
        End Try
 
    End Sub
 
 
    Public Couleurs() As String = {"XRECT1_0", "XRECT2_0", "XRECT3_0", "XRECT4_0", "XRECT5_0", "XRECT6_0", "XVERS1_0", "XVERS2_0"}
 
 
 
    Public Function FctCalcNbCoul(ByVal XFONDCHQ As String, ByVal ParamArray Couleurs() As String) As Integer
 
        Dim NbCoul As Integer
        Dim Ctr As Integer
        For Each coul As String In Couleurs
            If coul <> "" Then
                Ctr += 1
            End If
        Next
 
        XFONDCHQ = XFONDCHQ.Remove(0, 3)
        XFONDCHQ = XFONDCHQ.Remove(5, 9)
 
        NbCoul = CInt(XFONDCHQ) + Ctr
 
        Return NbCoul
    End Function

j'ai trouver une autre erreur, il s'agit de mon XFONCHQ qui peut être vide lui aussi donc ma fonction est celle-ci dorénavant :
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 Public Function FctCalcNbCoul(ByVal XFONDCHQ As String, ByVal ParamArray Couleurs() As String) As Integer Dim NbCoul As Integer Dim Ctr As Integer = 0 Dim X As String Dim W As String For Each coul As String In Couleurs If coul <> "" Then Ctr += 1 End If Next If XFONDCHQ <> "" Then X = XFONDCHQ.Remove(0, 3) W = X.Remove(5, 9) Else W = "0" End If NbCoul = CInt(W) + Ctr NbCoul = Ctr Return NbCoul End Function
et le message d'erreur de la mort :

L'index et le compte doivent faire référence à un emplacement dans la chaîne
Nom du paramètre : Count

Ce message est lié à :

Code:

W = X.Remove(5, 9)

et si j'enlève la partie avec XFONDCHQ :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function FctCalcNbCoul(ByVal XFONDCHQ As String, ByVal ParamArray Couleurs() As String) As Integer Dim NbCoul As Integer Dim Ctr As Integer = 0 Dim X As String Dim W As String For Each coul As String In Couleurs If coul <> "" Then Ctr += 1 End If Next Return NbCoul End Function
la fonction passe mais bloque au niveau du next row :
Code:

1 2 3 4 5 6 7 8 Dim myRow As DataRow Dim Couleurs() As String = {"XRECT1_0", "XRECT2_0", "XRECT3_0", "XRECT4_0", "XRECT5_0", "XRECT6_0", "XVERS1_0", "XVERS2_0"} For Each myRow In oTable.Rows myRow("NbCouleur") = FctCalcNbCoul(Couleurs(7)) oTable.Rows.Add(myRow("NbCouleur")) Next myRow
et le message d'erreur :

Citation:

la collection a été modifiée, l'opération d'énumération risque de ne pas s'éxécuter

Que faire??

j'ai trouver la solution pour ce message d'erreur, il suffit de supprimer la ligne:

Citation:

oTable.Rows.Add(myRow("NbCouleur"))

j'ai maintenant un résultat retourné, toujours zéro mais c'est déja une avancée...

24/02/2009, 15h24
yroubag
1. Aucune parathèse lors de l'appel. Ça résoud : «le nombre d'indices est inférieur au nombre de dimensions du tableau indéxé»
Code:

1 2 3 For Each myRow In oTable.Rows myRow("NbCouleur") = FctCalcNbCoul(Couleurs) oTable.Rows.Add(myRow("NbCouleur"))
2. Problème logique: Si j'ai bien compris les "XRECT1_0", "XRECT2_0" et ... était le NOM de tes paramètres d'entrée, mais le tableau Couleurs doit contenir les VALEURS de ces paramètres. Dans ta fonction, tu vérifies si la cellule est vide, mais dans le cas présent elle ne le sera jamais en raison des "XRECT1_0", "XRECT2_0" et ... stockés. Exemple: La valeur de XRECT1_0 va être dans l'index 0, la valeur de XRECT2_0 dans l'index 1 et ...

Finalement j'ai réussi à faire marcher ma 1ère fonction, pas très propre mais fonctionnelle.
Voici donc ce qu'il faut faire de A à Z :

Code:

1
2
3
4
5
6
7
8
9
10
11
oTable.Columns.Add("NbCouleur", Type.GetType("System.SByte"))
            Dim myRow As DataRow
 
            'Dim Couleurs() As String = {"XRECT1_0", "XRECT2_0", "XRECT3_0", "XRECT4_0", "XRECT5_0", "XRECT6_0", "XVERS1_0", "XVERS2_0"}
 
            For Each myRow In oTable.Rows
                'myRow("NbCouleur") = FctCalcNbCoul(myRow("XFONDCHQ_0"), Couleurs(7))
                'myRow("NbCouleur") = FctCalcNbCoul(Couleurs(0))
                myRow("NbCouleur") = FctCalcNbCoul(myRow("XRECT1_0"), myRow("XRECT2_0"), myRow("XRECT3_0"), myRow("XRECT4_0"), myRow("XRECT5_0"), myRow("XRECT6_0"), myRow("XVERS1_0"), myRow("XVERS2_0"), myRow("XFONDCHQ_0"))
                'oTable.Rows.Add(myRow("NbCouleur"))
            Next myRow

Citation:

Ne pas oublier les myRow()

et enfin la fonction pas proppre mais qui marche :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
    'Fonction calculant le nombre de couleur
    Public Function FctCalcNbCoul(ByRef XRECT1 As String, ByRef XRECT2 As String, ByRef XRECT3 As String, ByRef XRECT4 As String, ByRef XRECT5 As String, ByRef XRECT6 As String, ByRef XVERS1 As String, ByRef XVERS2 As String, ByRef XFONDCHQ As String) As Integer
 
 
        Dim NbCoul As Integer
        Dim cpt As Integer
        cpt = 0
 
        If XRECT1 = " " Then
            cpt = cpt
        Else
            cpt = cpt + 1
            If XRECT2 = " " Then
                cpt = cpt
            Else
                cpt = cpt + 1
                If XRECT3 = " " Then
                    cpt = cpt
                Else
                    cpt = cpt + 1
                    If XRECT4 = " " Then
                        cpt = cpt
                    Else
                        cpt = cpt + 1
                        If XRECT5 = " " Then
                            cpt = cpt
                        Else
                            cpt = cpt + 1
                            If XRECT6 = " " Then
                                cpt = cpt
                            Else
                                cpt = cpt + 1
                                If XVERS1 = " " Then
                                    cpt = cpt
                                Else
                                    cpt = cpt + 1
                                    If XVERS2 = " " Then
                                        cpt = cpt
                                    Else
                                        cpt = cpt + 1
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
 
 
        Dim W As String
 
        If XFONDCHQ <> "" Then
            W = Mid(XFONDCHQ, 5, 1)
            If Len(W) = 9 Then
                W = Mid(XFONDCHQ, 4, 1)
            End If
            If W <> "1" And W <> "2" And W <> "3" And W <> "4" And W <> "5" And W <> "6" And W <> "7" And W <> "8" And W <> "9" Then
                W = "0"
            End If
        Else
            W = "0"
        End If
 
 
        NbCoul = CUInt(W) + cpt
 
        Return NbCoul
 
    End Function

lorsque j'aurais fini ce que j'ai à faire, j'essairerai en utilisant un tableau...

Sur ce, Merci beaucoup de ta patience ainsi que de tes réponses cela m'a
fais grandement plaisir!!

eh bienj au plaisir par ma foi!! :yaisse2::salut::king: