[求助],请行家帮忙看下错误在哪？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助],请行家帮忙看下错误在哪？

共有12526人关注过本帖树形打印复制链接主题：[求助],请行家帮忙看下错误在哪？

zhan_n

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：15 积分：168 威望：0 精华：0 注册：2011/3/29 11:50:00

[求助],请行家帮忙看下错误在哪？ 发帖心情

Post By：2011/8/18 17:39:00 [只看该作者]

我正在学习FoxTable，练习了一个项目，项目中有一个"采购申请统计"表，我想在项目事件切换表事件中加入如下代码实现切到该表时自动筛选显示当月的记录，但总是报错说"未找到列[m2]"，请前辈们指教！谢谢！

With Tables("采购申请统计")
    Dim m1 As Date = Date.Today
    Dim m2 As Date = New Date(m1.Year,m1.Month,1)
    .Filter = "[申请日期] >m2 And [申请日期] <=m1"
End With

紙上不談兵

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/8/18 17:43:00 [只看该作者]

如果是日期型，要用符号#括起来。
例如我们要筛选出指定月份的订单，但是因为表达式没有求得日期月份的函数，我们只能这样设置代码：

Dim StartDate As Date '起始日期变量
Dim EndDate As Date '结束日期变量
Dim Month As Integer = 6 '指定月份
Dim Year As Integer = 1999 '指定年份
StartDate = New Date(Year,Month,1) '获得该月第一天
EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month)) '获得该月最后一天
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/18 17:44:00 [只看该作者]

With Tables("采购申请统计")
     Dim m1 As Date = Date.Today
     Dim m2 As Date = New Date(m1.Year,m1.Month,1)
    .Filter = "[申请日期] >#" & m2 & "# And [申请日期] <= #" & m1 & "#"
End With