| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 状态栏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123080) |
| -- 作者：lfz123 -- 发布时间：2018/8/7 16:26:00 -- 状态栏 我在系统菜单的基础上重新做了变更,把原 自动计算 组件 所属的工作区删除移到新的工作区后状态栏没有显示计算结果,请问是在哪里设置的,找不到了 |
| -- 作者：有点甜 -- 发布时间：2018/8/7 16:43:00 -- 编写systemIdle事件
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) & " "
StatusBar.Message3 = str1 |
| -- 作者：sanny -- 发布时间：2018/11/19 22:39:00 -- 编写systemIdle事件 在哪儿找到？ |
| -- 作者：有点蓝 -- 发布时间：2018/11/19 22:44:00 -- 项目属性：http://www.foxtable.com/webhelp/scr/1445.htm 初学者先好好过几遍帮助：http://www.foxtable.com/webhelp/scr/1592.htm
|