实时显示所选列表项目的值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 实时显示所选列表项目的值

共有2405人关注过本帖树形打印复制链接主题：实时显示所选列表项目的值

sf020cf

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

等级：一尾狐帖子：412 积分：2665 威望：0 精华：0 注册：2015/10/2 23:48:00

实时显示所选列表项目的值 发帖心情

Post By：2015/10/16 11:47:00 [只看该作者]

Dim Sum As Double

For Each r As Row In Tables("订单").GetCheckedRows

Sum + = r("体积")

e.Form.Controls("体积").Text = Sum

在文本框中怎样实时显示订单表.体积和 (跟随复选数变化),加到单击事件要在复选更改后再点选文本框才显示,请问要加到哪个事件不需要点选自动跟随选中个数实时显示

大红袍

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

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

Post By：2015/10/16 11:49:00 [只看该作者]

去写 AfterCheckRow

Dim Sum As Double = 0
For Each r As Row In Tables("订单").GetCheckedRows
Sum + = r("体积")
Forms("窗口1").Controls("体积").Text = Sum
Next

sf020cf

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

等级：一尾狐帖子：412 积分：2665 威望：0 精华：0 注册：2015/10/2 23:48:00

Post By：2015/10/16 12:01:00 [只看该作者]

谢谢红袍版主,经指教已经得到解决

主题：实时显示所选列表项目的值