主题：关于载入数据的限制

我在afterprojectload事件中写了如下代码，可是系统提示了如截图的错误，请老师指点于我，我想实现的功能就在数据之载入当年的数据

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("收购记录").LoadFilter = Filter
DataTables("收购记录").Load()

此主题相关图片如下：qq截图20150324232734.png