改成
Dim dr As DataRow = DataTables("告知内容").Find("案件编号 = '" & e.DataRow("案件编号") & "' and 流程时间 = #" & e.DataRow("收案时间") & "# ")
http://www.foxtable.com/webhelp/scr/1284.htm