problème avec cellvalueChanged de mon datagridcomboboxcolomn

Version imprimable

Bonjour !

j'aimerais gérer l'évenement cellValueChanged de mon datagrid qui contient 2 combobox mais rien ne se passe.

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
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
 
 'Événement permettant de gérer le changement de valeur des cellules du datagrid
    Private Sub DgWhse_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgWhse.CellValueChanged
 
        If Obj IsNot Nothing AndAlso xIsLoading = False Then
 
            If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
 
                Dim Invtype As CIctype = Obj
                Dim TypeWarehouses() As CItwhs = CItwhs.GetWarehousesInvType(Invtype.ctype)
                Dim Whse As CItwhs = DgWhse.Rows(e.RowIndex).Tag
 
                If Whse Is Nothing Then
                    Exit Sub
                End If
 
                Select Case e.ColumnIndex
                    Case 0
 
                        'Chargement des entrepôts
                        Dim CellWhse As DataGridViewComboBoxCell = DgWhse.Rows(e.RowIndex).Cells(0).Value
 
                        'CellWhse.DataSource = VAM.CWhse.GetWarehouses()
                        'CellWhse.ValueMember = "cwarehouse"
                        'CellWhse.DisplayMember = "cwarehouse"
                        'CellWhse.Value = Nothing
 
                        'Vérification si le warehouse selectionné est dèjà associé au type d'inventaire
                        Dim Warehouses() As VAM.CWhse
                        Warehouses = VAM.CWhse.GetWarehouses()
 
                        Dim IsTypeWarehouse As Boolean = False
 
                        'For Each W As VAM.CWhse In Warehouses
                        '    If W.cwarehouse = Whse.cwarehouse Then
                        '        IsTypeWarehouse = True
                        '        MsgBox("This warehouse already exists for the Inventory Type " & TypeOfValue & MsgBoxStyle.Exclamation)
                        '    Else
                        '        CellWhse.DataSource = VAM.CWhse.GetWarehouses()
                        '        CellWhse.ValueMember = "cwarehouse"
                        '        CellWhse.DisplayMember = "cwarehouse"
                        '        CellWhse.Value = Nothing
                        '    End If
                        'Next
 
                    Case 1
                        'Description Warehouse
                        If CStr(DgWhse.Rows(e.RowIndex).Cells(1).Value & "").Trim = "" Then
                            DgWhse.Rows(e.RowIndex).Cells(1).Value = Whse.cdescript
                        End If
 
                    Case 2
 
                        'Chargement des entrepôts
                        Dim CellrevCode As DataGridViewComboBoxCell = DgWhse.Rows(e.RowIndex).Cells(2).Value
                        CellrevCode.DataSource = CArrevn.GetRevenusCode()
                        CellrevCode.ValueMember = "crevncode"
                        CellrevCode.DisplayMember = "crevncode"
                        CellrevCode.Value = Nothing
 
                        'Verifier que le code de revenu pour un warehouse est bien sélectionné afin de pouvoir sauvegarder les changements
                        If DgWhse.Rows(e.RowIndex).Cells(2).Value Is Nothing Then
                            MsgBox("Please Select a Revenu Code before saving your warehouse for Inventory Type " & TypeOfValue & MsgBoxStyle.Exclamation)
                        End If
                    Case 3
                        'Code GL1
                    Case 4
                        'Code GL2
 
                End Select
            End If
        End If
    End Sub

Merci d'avance

12/12/2011, 21h11
tomlev

Tu as essayé de mettre un point d'arrêt pour voir si ta méthode est bien appelée ?
12/12/2011, 22h00
misscricri

Merci d'avoir répondu à mon post.

En fait, je ne peux même pas faire de modifications dans mes cellules ajouter de nouvelles lignes. J'ai une condition qui si est vraie me change mes combobox en textbox.

Merci encore
12/12/2011, 22h04
tomlev

Citation:

Envoyé par misscricri

En fait, je ne peux même pas faire de modifications dans mes cellules ajouter de nouvelles lignes

Tu veux dire que le DataGridView est en lecture seule ? Dans ce cas pourquoi est-ce que la valeur changerait ? Ou alors j'ai pas compris ce que tu voulais...
12/12/2011, 22h11
misscricri

Oui quand la condition est remplie, il est en lecture seul et à la dernieres ligne, il y a un combobox avec les valeurs par défaut si je veux ajouter une ligne a mon datagridview.

Comment faire aussi pour comparer un 2 valeurs. Si je sélectionne une valeur dans mon combobox mais qui existe deja dans mon datagridview???
12/12/2011, 23h21
tomlev

Citation:

Envoyé par misscricri

Oui quand la condition est remplie, il est en lecture seul et à la dernieres ligne, il y a un combobox avec les valeurs par défaut si je veux ajouter une ligne a mon datagridview.

Donc il est en lecture seule, sauf la dernière ligne ? Je suis pas sûr que ce soit possible, à moins de bidouiller...

Citation:

Envoyé par misscricri

Comment faire aussi pour comparer un 2 valeurs. Si je sélectionne une valeur dans mon combobox mais qui existe deja dans mon datagridview???

Difficile à dire comme ça, il faudrait que j'en sache plus. Ton DataGridView est bindé à une source de données (liste ou DataTable par exemple) ? Ou il est rempli manuellement ?

Oui j'ai bidoullé un peu pour la derniére ligne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 If IsTypeWarehouse = False Then
 
                'La liste de tous les entrepôts associés à un type d'inventaire
                cboWhse.DataSource = Warehouses
                cboWhse.ValueMember = "cwarehouse"
                cboWhse.DisplayMember = "cwarehouse"
                cboWhse.Value = Whse.cwarehouse
                CellWhse = cboWhse
else
 Dim txtwhse As New DataGridViewTextBoxCell
                txtwhse.Value = Whse.cwarehouse
                CellWhse = txtwhse
End if

Mon datagridview est bindé à une base de données.

13/12/2011, 14h20
tomlev
Citation:

Envoyé par misscricri

Mon datagridview est bindé à une base de données.

Par quel moyen ? Ce n'est jamais bindé directement à une base de données, il y quelque chose entre les 2... A priori je suppose qu'il s'agit d'une table d'un DataSet.

Il faut juste parcourir les lignes de la table pour voir s'il y en a déjà une avec la valeur du ComboBox. Par exemple :
Code:

1 2 3 4 Dim rows = dataSet.Tables("NomDeLaTable").Select("NomDeLaColonne = " + combo.Value) If rows.Length > 0 Then ' Il y a déjà une ligne avec cette valeur End If