Discussion :

[bart64]

Bonjour,

J'utilise une datagrid sur une winform. J'ai par exemple deux colonnes :
NbreHeures
Type

Il faut que si type = M alors que NbreHeures soit en lecture seule
Si Type = L alors NbreHeures soit éditable

J'avais fait

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
 
            Dim CNbreHeures As New DataGridTextBoxColumn
            CNbreHeures.MappingName = "NbreHeures"
            CNbreHeures.HeaderText = "Nbre Heures"
            CNbreHeures.Width = 120
            'CNbreHeures.ReadOnly = True
            ts.GridColumnStyles.Add(CNbreHeures)
 
            Dim type As New DataGridTextBoxColumn
            type.MappingName = "Type"
            type.HeaderText = "Type"
            type.Width = 120
            ts.GridColumnStyles.Add(type)
 
            GridModules.TableStyles.Add(ts)

Mais cela ne prend pas en compte la condition.
Auriez-vous une idée svp ?

Merci d'avance.

[A2rem]

l'idée serait que lorsque tu entres dans une cellule à editer, tu regardes la cellule de type sur la même ligne et qu' en fonction du résultat tu rendes la colonne ReadOnly.

[bart64]

Merci, c'est tout bon. Voilà le code pour ceux que ça pourrait intéresser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private Sub GridModules_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GridModules.MouseDown
 
        Dim hitInfo As DataGrid.HitTestInfo = GridModules.HitTest(New Point(e.X, e.Y))
 
        If hitInfo.Row >= 0 Then
            If GridModules(hitInfo.Row, 8) = "L" Then
                GridModules.TableStyles("ListeAffectation").GridColumnStyles("NbreHeures").ReadOnly = False
            Else
                GridModules.TableStyles("ListeAffectation").GridColumnStyles("NbreHeures").ReadOnly = True
            End If
        End If
 
    End Sub