主题：[求助]统计

去Datacolchanged、窗口AfterLoad 等等事件，写代码

 

If Forms("窗口1").Opened Then

    Forms("窗口1").Controls("Label1").Text = Tables("表A").Compute("sum(数量)")

End If

代码写到窗口afterLoad等事件就行啊。

 

不行，就上传例子说明

什么鼠标框。

你代码写在哪里，怎么写的。

右下方的，参考

 

AfterSelRangeChange代码

 

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) & " "
RibbonMenu.StatusBar.Message3 = Str1

看不懂你的问题，做例子说明。

任何需要重新计算的地方，都加上上面的代码。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 

菜单设计，主菜单，事件

都一样的意思。那你就写到该表的AfterSelRangeChange事件