试试
For Each mx As DataRow In DataTables("计划图").Select("起始日期 = #" & dt.Date & "# And 起始时间 >= #" & new Date(1900,1,1,18,0,0) & "#")
加好友 
发短信
Post By：2015/6/24 19:49:00 [只看该作者]
