以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议]状态栏能否向右边加宽一些  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71679)
--  作者：time
--  发布时间：2015/7/16 6:22:00
--  [建议]状态栏能否向右边加宽一些
程序界面下边状态栏右侧如果没有其他用用途，建议加宽。
--  作者：大红袍
--  发布时间：2015/7/16 9:20:00
--  
Dim b As object = BaseMainForm.controls("C1StatusBar1")
b.RightPaneWidth = 0
--  作者：time
--  发布时间：2015/11/15 19:21:00
--  

如果希望在状态栏右下方给自动计算合计值留点位置请问该如何设置代码？

 

顺便请教自动计算所选数值列合计值的按钮命令代码如何编写？谢谢！！
--  作者：大红袍
--  发布时间：2015/11/15 19:50:00
--  

Dim b As object = BaseMainForm.controls("C1StatusBar1")
b.RightPaneWidth = 50

 

---------------------------

 

自动计算的代码

 

    Dim str1 As String = ""
    Dim t As Table = CurrentTable
   
    Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    Str1 = Str1 & "总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

    msgbox(str1)
--  作者：time
--  发布时间：2015/11/15 20:31:00
--  

了解，谢谢！
--  作者：time
--  发布时间：2015/11/15 21:12:00
--  
我用的不是系统菜单，以前是导出成Excel格式的文件然后用鼠标选择需要合计的数据区域在右下角会显示想要的合计值，现在方便了，主要是把电子账簿记在手工现金流水账时需要统计此页收入合计数和支出合计数，现在方便了，只要点击按钮就能达到想要的合计值，当然如果能像使用Exce一样只要一拉鼠标选取需要合计的单元格后能在右下角自动显示合计值就会更加方便咯，
--  作者：大红袍
--  发布时间：2015/11/15 21:16:00
--  

比如，你可以在 AfterSelRangeChange 事件，写上面的代码。
--  作者：lianghanyu
--  发布时间：2021/6/20 10:23:00
--  
显示编译错误，代码错误

软件版本2021开发版。

代码错误