弹出值看看
msgbox(dt)
msgbox(r("事件日期"))
msgbox("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
加好友 
发短信
Post By：2017/9/24 21:36:00 [只看该作者]
