主题：登陆选择年度问题

Dim y As Integer = e.User.ExtendedValues("年度")
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String

Select Case e.DataTableName
    Case "订单"
        e.Filter = "订单日期 >= #" & dt1 & "# And 订单日期 <= #" & dt2 & "#"
End Select

参考 http://www.foxtable.com/help/topics/0670.htm