为什么这个检查通不过，请告诉指教！

wxd3563003

Dim A
A =Date
datatable("AT",dtlocalsheet) = A
CStr DataTable("AT", dtLocalSheet)
Msgbox(A)
If datatable("AS",dtlocalsheet) = A Then
        Reporter.ReportEvent micPass,"正确",""
        else
        Reporter.ReportEvent micFail,"错误","实际为："+DataTable("AS",dtlocalsheet)+"期望为："+DataTable("AT",dtlocalsheet)
End If
其中datatable("AS",dtlocalsheet)的值为2012-03-29，Msgbox(A)得到的值也是2012-03-29，但是为什么检查通不过呢？
提示信息：错误 实际为：2012-03-29，期望为：2012-03-29        失败 2012-03-29 - 10:56:57

黑羽祭

回复 1# wxd3563003
我觉得是因为你拿日期型和数组进行比较了，所以就算字符一样，判断出来也是不一样的。
你试试将IF语句的条件改为：If  cdate(datatable("AS",dtlocalsheet)) = cdate(A)   Then 试试

mimmy

A是日期型，类型不一样所以检查失败，改成这样datatable("AS",dtlocalsheet) =CStr(A)