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

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

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

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

写到timertick事件

http://www.foxtable.com/webhelp/scr/1322.htm

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

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

If tp > -1 Then '如果选定区域包括数据行
    For i As Integer = tp To bp
        sn += Tables("车间欠料管理_Table1").Rows(i)("数量")
    Next

    Dim cn As Integer = bp-tp+1
    Dim avg As Double = sn / cn
    e.Form.Strips("状态栏").Items("统计1").Text = "计数:" & cn & "   平均值:" & avg & "   求和:" & sn
Else
    e.Form.Strips("状态栏").Items("统计1").Text = ""
End If

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

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