以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  登陆选择年度问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74028)
--  作者：JPG7
--  发布时间：2015/8/31 19:53:00
--  登陆选择年度问题
扩展属性：
年度  Integer  2014|2015

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 "订单"
        Filter = "订单日期 >= #" & dt1 & "# And 订单日期 <= #" & dt2 & "#"
        DataTables("订单").loadFilter = Filter
End Select

总是出错，不知道怎么写了。还有怎么设置扩展属性的默认值
--  作者：大红袍
--  发布时间：2015/8/31 19:56:00
--  

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
--  作者：JPG7
--  发布时间：2015/8/31 20:02:00
--  
access数据表写在哪？beforeloadinnertable还是beforloadoutertable
--  作者：JPG7
--  发布时间：2015/8/31 20:03:00
--  
以下是引用大红袍在2015/8/31 19:56:00的发言：

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

我的是ACCESS外部表
--  作者：大红袍
--  发布时间：2015/8/31 20:06:00
--  

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

 
--  作者：JPG7
--  发布时间：2015/8/31 22:48:00
--  回复：（大红袍）参考 http://www.foxtable.com/help/...
谢谢，解决了