AfterSelRangeChange代码如下：

If e.Form IsNot Nothing Then
    Dim it As Winform.StripItem = e.Form.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

如果点击目录树筛选数据就会出错。

要绑定单击事件

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

点击浏览该文件:单击列标题事件.table