Question

如果有人可以为我重写，我真的很感激。如果为null，我试图更改存储日期。我试过Me.vipEndDate =＆＃34; 0000-00-00＆＃34;以及更多。

            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

获取错误：从字符串转换＆＃34;＆＃34;输入＆＃39;日期＆＃39;无效

1 个答案: