主题：查询段

Dim y As Integer = Date.Today.Year
Dim d,dt As Date
Dim ln As New Lunar(y-1,12,20,False)
Dim Nl As New Lunar(y,12,19,False)
d = ln.SolarDate
dt = Nl.SolarDate

Dim t As Table = Tables("假期安排_Table1")
t.Fill("Select  假期名称,安排项目,Min(日期) As 开始日期,Max(日期) As 结束日期,Max(日期)-Min(日期)+1 减去周六、周日 As 天数 Fro m {假期安排} WHERE 日期 >= #" & d & "# And 日期 <= #" & dt & "# GROUP BY 假期名称,安排项目 ORDER BY Min(日期)","数据库",True)
请老师指教，谢谢