Dim Year As Integer = Date.Today.Year Dim Month As Integer = Date.Today.Month Dim FirstDay As Date = New Date(Year,Month,1) '第一天 Dim LastDay As Date = New Date(Year,Month,Date.DaysInMonth(Year,Month)) '最后一天 DataTables("订单").LoadFilter = "[日期] >= #" & FirstDay & "# And [日期] <= #" & LastDay & "#" DataTables("订单").Load()
加好友 
发短信
Post By：2008/10/31 20:37:00 [只看该作者]
