以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码错误，怎么修改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45479)
--  作者：浙江仔
--  发布时间：2014/1/27 9:02:00
--  [求助]代码错误，怎么修改？

For Each dr As DataRow In DataTables("WHJC_Jilu").Select("[检查日期]< \'& Date.Today.AddDays(-10) & \'  ")
    dr("_locked") = True
    DataTables("WHJC_Jilu").Save()
Next

如下错误，怎么办？

 

---------------------------
版本:2013.10.14.1
---------------------------
代码执行出错，错误信息：

 

System.Data.EvaluateException: 无法在 System.DateTime 和 System.String 上执行“=”操作。

   在 System.Data.BinaryNode.SetTypeMismatchError(Int32 op, Type left, Type right)

   在 System.Data.BinaryNode.BinaryCompare(Object vLeft, Object vRight, StorageType resultType, Int32 op, CompareInfo comparer)

   在 System.Data.Select.Eval(BinaryNode expr, DataRow row, DataRowVersion version)

   在 System.Data.Select.Evaluate(Int32 record)

   在 System.Data.Select.FindFirstMatchingRecord()

   在 System.Data.Select.GetBinaryFilteredRecords()

   在 System.Data.Select.SelectRows()

   在 System.Data.DataTable.Select(String filterExpression, String sort, DataViewRowState recordStates)

   在 Foxtable.DataTable.Select(String O01OlO11Ol0OlOll, String OOll, DataViewRowState O00OO11l)

   在 Foxtable.DataTable.Select(String O001lO00lll0ll00)

   在 UserCode.Test()
---------------------------
确定  
---------------------------

 
--  作者：Bin
--  发布时间：2014/1/27 9:02:00
--  
For Each dr As DataRow In DataTables("WHJC_Jilu").Select("[检查日期]< #& Date.Today.AddDays(-10) & "#")
--  作者：浙江仔
--  发布时间：2014/1/27 9:05:00
--  
谢谢，日期变量都要##啊！
--  作者：浙江仔
--  发布时间：2014/1/27 9:38:00
--  
For Each dr As DataRow In DataTables("WHJC_Jilu").Select("[检查日期]< #& Date.Today.AddDays(-10) & #")

是这样么？
怎么还是报错啊
---------------------------
版本:2013.10.14.1
---------------------------
代码执行出错，错误信息：



System.FormatException: 该字符串未被识别为有效的 DateTime。

   在 System.DateTimeParse.Parse(String s, DateTimeFormatInfo dtfi, DateTimeStyles styles)

   在 System.Data.ConstNode..ctor(DataTable table, ValueType type, Object constant, Boolean fParseQuotes)

   在 System.Data.ExpressionParser.Parse()

   在 System.Data.DataExpression..ctor(DataTable table, String expression, Type type)

   在 System.Data.Select..ctor(DataTable table, String filterExpression, String sort, DataViewRowState recordStates)

   在 System.Data.DataTable.Select(String filterExpression, String sort, DataViewRowState recordStates)

   在 Foxtable.DataTable.Select(String O01OlO11Ol0OlOll, String OOll, DataViewRowState O00OO11l)

   在 Foxtable.DataTable.Select(String O001lO00lll0ll00)

   在 UserCode.Test()
---------------------------
确定   
---------------------------
--  作者：浙江仔
--  发布时间：2014/1/27 9:45:00
--  
For Each dr As DataRow In DataTables("WHJC_Jilu").Select("[检查日期]< #" &  Date.Today.AddDays(-10) & "# ")


终于可以了，呵呵