以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  状态栏自动统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143621)

--  作者:南山南
--  发布时间:2019/11/29 16:58:00
--  状态栏自动统计
RaiseSystemEvent(CurrentTable,SystemEventTypeEnum.AfterSelRangeChange)系统自带的代码是这样的,但是理解不了,设计状态栏时不知怎么写代码
--  作者:有点蓝
--  发布时间:2019/11/29 17:01:00
--  
这个代码用不了的,参考这种:

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=71679
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77615&skin=0

--  作者:南山南
--  发布时间:2019/11/29 17:39:00
--  
如何对数值格式化,显示两位小数,我用这个Format(0.6,"f")无法格式化
--  作者:有点蓝
--  发布时间:2019/11/29 20:11:00
--  
Format(0.6,"0.00")
--  作者:南山南
--  发布时间:2019/11/30 14:13:00
--  
老师如何写代码判断:当选择一个单元格或者没有选择区域时状态栏不显示统计及累计等字样
--  作者:有点蓝
--  发布时间:2019/11/30 14:31:00
--  
参考:http://www.foxtable.com/webhelp/topics/0447.htm
--  作者:南山南
--  发布时间:2019/11/30 15:43:00
--  
Dim str1 As String = ""
Dim t As Table = CurrentTable
If t.BottomPosition>t.TopPosition Then
    Str1= Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
    StatusBar.Message3 =Str1
Else
    StatusBar.Reset()
End If
老师黄色区域是不是要处理一下,打开系统后会出错 index不能为负值

--  作者:有点蓝
--  发布时间:2019/11/30 16:06:00
--  
If t.rows.count > 0 andalso t.BottomPosition>t.TopPosition Then
--  作者:南山南
--  发布时间:2019/12/2 18:49:00
--  
当插入行时显示:
索引超出范围。必须为非负值并小于集合大小。
参数名: index

--  作者:有点蓝
--  发布时间:2019/12/2 20:21:00
--  
在什么事件写了什么代码?