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

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

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

dxjwlf

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

加好友

发短信

等级：童狐帖子：261 积分：2189 威望：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 & "户"

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

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

加好友

发短信

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

Post By：2015/8/20 12:07:00 [只看该作者]

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/20 12:15:00 [只看该作者]

执行2楼，如果正确。就是日期那里你多个一个空格#

dxjwlf

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

加好友

发短信

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

Post By：2015/8/20 13:00:00 [只看该作者]

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/20 14:17:00 [只看该作者]

相同的代码我测试没问题。你做个例子上来看看。

下一主题 >> << 上一主题

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

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