专家坐堂-请教如何取前日期的前一年？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String

Dim y As Integer = Date.Today.Year

Dim m1 As Integer = Date.Today.Month-12

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m1, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天

e.Form.Controls("startdate").value=Dt1

e.Form.Controls("enddate").value=Dt2

e.Form.Controls("startdate").value=Dt1

e.Form.Controls("enddate").value=Dt2

Filter ="订单日期 >= \'" & dt1 & "\' And 订单日期 <= \'" & dt2 & "\'"

\'Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#" & "and 单据状态=\'已审核\'"

With DataTables("订单")

.LoadFilter = filter

.Load()

End With

这样写对吗