Bonjour !

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

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