Discussion :

[BasicZX81]

Bonjour à tous,
Je voudrais pourvoir laisser vide une cellule d'un DataGridView lorsque la donnée (de type Integer) est absente,
Pour ce faire j'utilise un type Nullable pour stocker ma donnée :

Code :

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

Dim IntValue as Integer?

Pour écrire dans un DataRow je fait :

Code :

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

Row("Macolonne") = IntValue ' Lorsque IntValue est Nothing, j'ai bien une case vide dans mon dgv.

Pour lire un DataRow je fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   Private Sub DataGridViewCars_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridViewCars.CellValueChanged
     Dim Value As Object
        If IsDBNull(DataGridViewCars.CurrentCell.Value) Then
            Value = Nothing
        Else
            Value = DataGridViewCars.CurrentCell.Value
        End If
IntValue = CType(Value, Integer?) ' J'obtiens l'erreur : Le cast spécifié n'est pas valide.
End Sub

Comment fait t'on pour travailler avec des valeurs Null ? S'il vous plait.

EDIT : Merci de relire le code j'avais fait une erreur lors de la réecriture.

[BasicZX81]

Arfff, je deviens fou....
J'ai essayé ceci et je tombe sur un autre problème :

On est bien d'accord que ceci :

Code :

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

1
2
3
4
5
6
7
                Dim IntValue as integer?
                If Value Is Nothing Then
                     IntValue = Nothing
                Else
                     IntValue = Integer.Parse(CStr(Value))
                End If
                If IntValue .HasValue Then Stop

est bien égale à cela :

Code :

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

1
2
                IntValue  = If(Value Is Nothing, Nothing, Integer.Parse(CStr(Value)))
                If IntValue.HasValue Then Stop

Et bien non, dans le premier cas ça fonctionne (le code ne tombe jamais sur Stop) , dans le deuxième cas ça ne fonctionne pas le code s'arrette sur stop à chaque fois que j'efface la valeur du DataGridView (case vide).

Une idée ? et aussi des conseille ?

[BasicZX81]

Bon j'ai fini par trouver une solution qui fonctionne pour ceux que cela interresse :
Je passe pas en résolu mais vous pouvez toujours intervenir, je suis très intéressé par vos éventuel avis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  <System.Runtime.CompilerServices.Extension> _
    Public Function ToNullable(Of T As Structure)(s As String) As Nullable(Of T)
        Dim result As New Nullable(Of T)()
        Try
            If Not String.IsNullOrEmpty(s) AndAlso s.Trim().Length > 0 Then
                Dim conv As TypeConverter = TypeDescriptor.GetConverter(GetType(T))
                result = DirectCast(conv.ConvertFrom(s), T)
            End If
        Catch
        End Try
        Return result
    End Function

A utiliser comme ceci :

Code :

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

Dim Int Value as integer? = CStr(Value).ToNullable(Of Integer)()