主题：找出今年

查找结束日期是今年的，请老师指教，谢谢

For Each dr As DataRow In DataTables("假期安排").Select("安排项目 = '"& e.Form.Controls("安排项目").Value & "' And Year(结束日期) = #"& Date.Today.Year &"#")
    e.Form.Controls("开始日期").Value = dr("开始日期")
Next