[求助]这段代码应该放在那里才会选择完相关的数据后自动统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这段代码应该放在那里才会选择完相关的数据后自动统计

共有1343人关注过本帖平板打印复制链接主题：[求助]这段代码应该放在那里才会选择完相关的数据后自动统计

2900819580

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

等级：六尾狐帖子：1330 积分：9668 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助]这段代码应该放在那里才会选择完相关的数据后自动统计 发帖心情

Post By：2017/3/17 17:24:00 [只看该作者]

这段代码应该放在那里才会选择完相关的数据后自动统计

Dim sn As Integer

Dim tp As Integer = Tables("车间欠料管理_Table1").TopPosition

Dim bp As Integer = Tables("车间欠料管理_Table1").BottomPosition

If tp > -1 Then '如果选定区域包括数据行

For i As Integer = tp To bt

sn += .Rows(i)("数量")

End If

Dim cn As Integer = bp-tp

Dim avg As Double = sn / cn

e.Form.Strips("状态栏").Items("统计1").Text = "计数:" & cn & " 平均值:" & avg & " 求和:" & sn

主题：[求助]这段代码应该放在那里才会选择完相关的数据后自动统计