For Each dr As DataRow In DataTables("方法").DataRows
Dim fdr As DataRow = DataTables("日历").Find("创建日期 = '" & dr("创建日期") & "' and 主题 = '" & dr("主题") & "' and 开始时间 = '" & dr("开始时间") & "' and 修改时间 < '" & dr("修改时间") & "'")
If fdr Is Nothing Then
fdr = DataTables("日历").addnew
fdr("修改时间") = dr("修改时间")
fdr("创建日期") = dr("创建日期")
fdr("主题") = dr("主题")
fdr("笔记") = dr("笔记")
fdr("开始时间") = dr("开始时间")
End If
Next
修改时间,是日期时间 2018-05-06 18:38:00 时段格式,
上面代码, 修改时间 < '" & dr("修改时间") & "' 条件失效,求助