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

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

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

2900819580

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

等级：六尾狐帖子：1347 积分：9817 威望：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

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