以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这段代码应该放在那里才会选择完相关的数据后自动统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97743)
--  作者：2900819580
--  发布时间：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)("数量")
        Next
    End If

Dim cn As Integer = bp-tp
Dim avg As Double = sn / cn
e.Form.Strips("状态栏").Items("统计1").Text = "计数:" & cn & "   平均值:" & avg  & "   求和:" & sn
--  作者：有点色
--  发布时间：2017/3/17 17:40:00
--  

写到timertick事件

 

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

 
--  作者：有点色
--  发布时间：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