根据当前日期,得到 今天、明天、后天的日期,然后合成条件,统计或者查询数据,不就好了?
Dim jt As Date = Date.Today
Dim mt As Date = jt.AddDays(1)
Dim ht As Date = jt.AddDays(2)
Dim dht As Date = jt.AddDays(3)
http://www.foxtable.com/webhelp/scr/0681.htm