Travailler avec des DBNull et type Nullable

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:

---

Dim IntValue as Integer?

---

Pour écrire dans un DataRow je fait :

Code:

---

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

---

Pour lire un DataRow je fait :

Code:

---

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.

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

On est bien d'accord que ceci :

Code:

---

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:

---

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). :weird::weird::weird:

Une idée ? et aussi des conseille ?

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:

---

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:

---

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

---