收到錯誤：從字符串“”到類型“日期”的轉換無效

Question

如果有人可以為我重寫此代碼，我將不勝感激。 我試圖更改存儲的日期，如果為null。 我已經嘗試過Me.vipEndDate =“ 0000-00-00”等等。

            If DR("vipEndDate") Is Nothing Then
              Me.vipEndDate = "0"
            Else
              Me.vipEndDate = DR("vipEndDate").ToString
            End If

Answer 1

好吧，您可以添加一些錯誤保護。 TryParse嘗試將字符串轉換為日期，如果不轉換則返回false，因此您的代碼將不會執行錯誤。

Dim dt As Date
If Date.TryParse(DR("vipEndDate").ToString, dt) Then
  'this part only executes if string convert
  Me.vipEndDate = dt
End If