对象变量或With块变量未设置错误

Question

我正在使用ASP.NET 4 / VB.NET编写。我正在查询MSSQL数据库，有时记录会返回，但没有结果...所以我在If..Else子句中对结果进行了调用，以便在数据库没有结果的情况下设置默认值。 ..但是现在我得到这个“对象变量或带有块变量未设置错误”。以下是相关代码：

Dim clcfirst
Dim rhcfirst
Dim clcdate As Date
Dim rhcdate As Date
If IsNothing(clcexists) Then
   clcfirst = Date.Now.Subtract(year)
   rhcfirst = Date.Now.Subtract(year)
   clcdate = clcfirst
   rhcdate = rhcfirst
Else
   clcfirst = clcexists.FirstOrDefault()
   rhcfirst = rhcexists.FirstOrDefault()
   clcdate = clcfirst.SignatureDate
   rhcdate = rhcfirst.SignatureDate
End If

Answer 1

DateTime年变量在哪里设置？这可能是空的吗？

如果你想减去一年，你可以这样做：

 clcdate = Date.Now.AddYears(-1)
 rhcdate = Date.Now.AddYears(-1)