主题：统计问题

下面的代码，报什么错？

 

If Forms("MainWindow").Opened Then
    Dim it As Winform.StripItem = Forms("MainWindow").Strips("状态栏").Items("Stat")
    Dim t As Table = e.Table 
    it.Text = ""
    If  t.Cols(t.ColSel).IsNumeric Then '如果当前列是数值列
        it.Text = "合计:" & t.Aggregate(AggregateEnum.Sum,t.TopRow,t.ColSel,t.BottomRow,t.ColSel)
    End If
End If

未将对象引用设置到对象的实例。而且也不给求和。

老师好，我明白了您的程序，但是必须是先选定某列的一些行，然后再打开这个窗口的时候，确实自动求和。您的程序不再报错。我希望窗口已经打开，然后鼠标选定某列的一些行，然后松开鼠标，程序自动给出求和。

这个不好办，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77363

 

在foxtable 的开发环境中就可以，为什么加上窗体就不行？可惜。

老师，我发现您的程序可以实现在窗体的visibal=true的时候，鼠标选择整个列，可以自动求和。这个满足了我的要求。