以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助] 我的作业 检查几遍，没有找出原因。请老师改下作业  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73491)

--  作者：dxjwlf --  发布时间：2015/8/20 10:40:00 --  [求助] 我的作业 检查几遍，没有找出原因。请老师改下作业 表：首页，窗口：主窗口，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 & "户"

--  作者：大红袍 --  发布时间：2015/8/20 11:46:00 --   Dim s As Double Dim filter As String filter = " 有效期 <= #"& date.today() & "# " s = Tables("食品流通").Compute("count(主体名称)",filter)  MessageBox.Show(s) s = DataTables("食品流通").Compute("count(主体名称)",filter)  MessageBox.Show(s)

--  作者：dxjwlf --  发布时间：2015/8/20 12:07:00 --   哪里错了呀，主体名称 [主体名称]是一样呀。

--  作者：大红袍 --  发布时间：2015/8/20 12:15:00 --   执行2楼，如果正确。就是日期那里你多个一个空格#

--  作者：dxjwlf --  发布时间：2015/8/20 13:00:00 --   搞定，就是想不通，多个空格，也不至于找不到 列，好象空格会自己删除。。

--  作者：大红袍 --  发布时间：2015/8/20 14:17:00 --    相同的代码我测试没问题。你做个例子上来看看。