Comment puis-je définir un DateTime nullable à null dans VB.NET?

Je suis en train de mettre en place un filtre de plage de dates sur mon INTERFACE, avec des cases à cocher pour dire si un DateTimePicker la valeur doit être utilisée, par exemple,

Dim fromDate As DateTime? = If(fromDatePicker.Checked, fromDatePicker.Value, Nothing)

Encore paramètre fromDate à Nothing n'a pas en étant mis à Nothing mais à "12:00:00', et sur le If déclaration incorrecte exécute le filtre car startDate n'est pas Nothing.

If (Not startDate Is Nothing) Then
    list = list.Where(Function(i) i.InvDate.Value >= startDate.Value)
End If

Comment m'assurer startDate obtient une valeur de Nothing?

source d'informationauteur ProfK

  1. 23

    Le problème c'est que c'est en examinant le côté droit de cette mission première, et de décider qu'il est de type DateTime (pas de ?). Puis exécuter la mission.

    Cela fonctionne:

    Dim fromDate As DateTime? = If(fromDatePicker.Checked, _
                               fromDatePicker.Value, _
                               CType(Nothing, DateTime?))

    Parce qu'il force le côté droit du type de DateTime?.

    Comme je l'ai dit dans mon commentaire, Rien peut être plus proche de C#'s default(T) plutôt que null:

    Nothing représente la valeur par défaut d'un type de données. La valeur par défaut dépend de savoir si la variable est une valeur de type ou d'un type de référence.

  2. 3

    Avec VB.NET et EF 6.X pour enregistrer la valeur null est:


    Dim nullableData As New Nullable(Of Date)

  3. 2

    En plus de @Damien_The_Unbeliever fine de réponse, à l'aide de New DateTime? fonctionne aussi:

    Dim fromDate As DateTime? = If(fromDatePicker.Checked, _
                               fromDatePicker.Value, _
                               New DateTime?)

    Vous trouverez peut-être que ça ressemble un peu à contre-intuitif, pourquoi peut-être le CType(Nothing, DateTime?) est préférable.

  4. 0

    Utilisation New Date comme un nombre magique:

    Dim fromDate As New Date
If fromDatePicker.Checked Then
  fromDate = fromDatePicker.Value
End If
If fromDate <> New Date Then
  list = list.Where(Function(i) i.InvDate.Value >= fromDate.Value)
End If
  5. 0
            squery = "insert into tblTest values('" & Me.txtCode.Text & "', @Date)"
        Dim cmd = New SqlCommand(squery, con)

        cmd.Parameters.Add("@Date", SqlDbType.DateTime)
        If txtRequireDate.Text = "" Then
            cmd.Parameters("@Date").Value = DBNull.Value
        Else
            cmd.Parameters("@Date").Value = txtRequireDate.Text
        End If