请教关于复选框的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教关于复选框的代码

共有10530人关注过本帖树形打印复制链接主题：请教关于复选框的代码

shixia

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

等级：三尾狐帖子：759 积分：7038 威望：0 精华：1 注册：2008/9/2 20:04:00

请教关于复选框的代码 发帖心情

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

选取表筛选框后，如何在AfterCheckRow事件中写代码统计出该表所有筛选框为TRUE 的行中“数量”列的和？

[此贴子已经被作者于2011-8-17 21:00:19编辑过]

狐狸爸爸

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

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

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

Dim sum as Double
For Each r As Row In Tables("员工").GetCheckedRows
sum = sum + r("数量")
Next

客人(119.99.*.*)

小大 3楼

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

Dim sum as Double
For Each r As Row In Tables("员工").GetCheckedRows
sum = sum + r("数量")
Next

窗口增加代码：e.Form.Controls("Label9").text = sum

错误提示：

图片点击可在新窗口打开查看此主题相关图片如下：截图.jpg

这是什么原因？

狐狸爸爸

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

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

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

表事件的e参数，不会有e.form的

窗口事件，才会有e.form，表示触发事件的窗口

主题：请教关于复选框的代码