以文本方式查看主题

-  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 内