For Each xcdr As DataRow In DataTables("zclxingcheng").Select("日期 > #" & date.Today & "#")
看这里 http://www.foxtable.com/help/topics/0400.htm