以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  救火！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32294)
--  作者：我爱狐表011
--  发布时间：2013/4/28 17:21:00
--  救火！！！


此主题相关图片如下：43%g$n3s7v2)}_%wqij`ko.jpg
按此在新窗口浏览图片

 

For Each dr As DataRow In DataTables("计时器表").DataRows
  Dim dr2 As DataRow = DataTables("发件箱").Find("时间=#" & dr("定时时间") & "# and 号码=\'" & dr("联系方式") & "\'and 内容=\'" & dr("提醒事件") & "\'")
If dr2 IsNot Nothing Then
   dr("状态")=dr2("状态")
  End If
Next

 

 

这段代码报错，不知道错在哪里？
--  作者：Bin
--  发布时间：2013/4/28 17:24:00
--  
你是不是换行了?
--  作者：狐狸爸爸
--  发布时间：2013/4/28 17:26:00
--  

代码改为：

 

For Each dr As DataRow In DataTables("计时器表").DataRows
    Dim dr2 As DataRow = DataTables("发件箱").Find("时间 = #" & dr("定时时间") & "# and 号码 = \'" & dr("联系方式") & "\' and 内容 = \'" & dr("提醒事件") & "\'")
    If dr2 IsNot Nothing Then
        dr("状态")=dr2("状态")
    End If
Next

 

=的前后，and的前后，都应该有空格的。

 

如果还是不行，可能是因为定时时间这一列，并非是日期时间型。

 

如果类型正确，代码正确，还是出错，做个例子发上来。
--  作者：我爱狐表011
--  发布时间：2013/4/28 17:26:00
--  
没有换行，我就是在你刚才帮我解决的问题上，多加了一个条件：and 内容=\'" & dr("提醒事件") & "\'
--  作者：我爱狐表011
--  发布时间：2013/4/28 17:33:00
--  
and和=前后都加了空格，列为时间日期型，可是还是报同样的错
--  作者：XYT
--  发布时间：2013/4/28 17:36:00
--  

还是搞例子上来吧，能猜的错误都猜了
--  作者：我爱狐表011
--  发布时间：2013/4/28 17:40:00
--  

好的，马上搞

 
--  作者：程兴刚
--  发布时间：2013/4/28 19:38:00
--  
不是告诉您错误所在了吗？ 式") & "\' and 内