主题：救火！！！

此主题相关图片如下：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

这段代码报错，不知道错在哪里？