主题：救火！！！

代码改为：

 

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的前后，都应该有空格的。

 

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

 

如果类型正确，代码正确，还是出错，做个例子发上来。