[求助] 我的作业检查几遍，没有找出原因。请老师改下作业 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表：首页，窗口：主窗口，after事件写入如下代码：

问题：

1、 s = 0 实际上不是 0

2、把 Tables("食品流通").Compute("count([主体名称])",filter) 换成 DateTables("食品流通").Compute("count([主体名称])",filter) 却弹出没有找到有效期列，而这列存在。

Dim lbl4,lbl5,lbl6,lbl7 As WinForm.Label

lbl4 = e.Form.Controls("Label4")

lbl4.text = "共 " & Tables("食品流通").Rows.Count & " 户"

Dim s As Double

Dim filter As String

filter = " 有效期 <= # "& date.today() & "# "

s = Tables("食品流通").Compute("count([主体名称])",filter)

MessageBox.Show(s)

'lbl5 = e.Form.Controls("Label5")

'lbl5.text = "食品流通: 共 " & s & "户"

主题：[求助] 我的作业 检查几遍，没有找出原因。请老师改下作业