找了一下午,终于找到原因了,是时间没有对得上,红色代表报错,是写的方法不对吗?感谢 感谢Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")
Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position)
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "' and 事件日期='" & r("事件日期") & "'")
If fdr IsNot Nothing Then
'msgbox(1)
Forms("记事表编辑窗口").show
Else
Forms("添加事件窗口").show
Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
Forms("添加事件窗口").Controls("TextBox1").text = r("项目名称")
Forms("添加事件窗口").Controls("TextBox2").text = r("项目流程")
End If
[此贴子已经被作者于2017/9/24 16:13:51编辑过]