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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  状态栏显示数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107691)

--  作者：有点甜
--  发布时间：2017/10/8 9:03:00
--
If Forms("窗口1").Opened Then
    Dim it As Winform.StripItem = Forms("窗口1").Strips("状态栏").Items("Stat")
    Dim t As Table = e.Table
    it.Text = ""
    If t.Cols(t.ColSel).IsNumeric Then \'如果当前列是数值列
        it.Text = "计数:" & Format(t.Aggregate(AggregateEnum.Count,t.TopRow,t.ColSel,t.BottomRow,t.ColSel),"0.0") & "个;" & "合计:" & Format(t.Aggregate(AggregateEnum.Sum,t.TopRow,t.ColSel,t.BottomRow,t.ColSel),"0.00") & ";" & "平均值:" & Format(t.Aggregate(AggregateEnum.Average,t.TopRow,t.ColSel,t.BottomRow,t.ColSel),"0.00")
    End If
End If

--  作者：有点甜
--  发布时间：2017/10/9 16:09:00
--
If Forms("窗口1").Opened Then
    Dim it As Winform.StripItem = Forms("窗口1").Strips("状态栏").Items("Stat")
    Dim t As Table = e.Table
    it.Text = ""
    it.Text = "计数:" & Format(t.Aggregate(AggregateEnum.Count,t.TopRow,t.LeftCol,t.BottomRow,t.RightCol),"0.0") & "个;" & "合计:" & Format(t.Aggregate(AggregateEnum.Sum,t.TopRow,t.LeftCol,t.BottomRow,t.RightCol),"0.00") & ";" & "平均值:" & Format(t.Aggregate(AggregateEnum.Average,t.TopRow,t.LeftCol,t.BottomRow,t.RightCol),"0.00")
End If