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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 我的作业检查几遍，没有找出原因。请老师改下作业

共有2285人关注过本帖树形打印复制链接主题：[求助] 我的作业检查几遍，没有找出原因。请老师改下作业

dxjwlf

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

等级：童狐帖子：261 积分：2195 威望：0 精华：0 注册：2015/5/15 14:51:00

[求助] 我的作业检查几遍，没有找出原因。请老师改下作业 发帖心情

Post By：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 & "户"

dxjwlf

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

等级：童狐帖子：261 积分：2195 威望：0 精华：0 注册：2015/5/15 14:51:00

Post By：2015/8/20 12:07:00 [显示全部帖子]

哪里错了呀，主体名称 [主体名称]是一样呀。

dxjwlf

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

等级：童狐帖子：261 积分：2195 威望：0 精华：0 注册：2015/5/15 14:51:00

Post By：2015/8/20 13:00:00 [显示全部帖子]

搞定，就是想不通，多个空格，也不至于找不到列，好象空格会自己删除。。

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