以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表格作为副本报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172058)
--  作者：wangglby
--  发布时间：2021/9/21 0:36:00
--  表格作为副本报错
窗口的表格作为副本，每次打开窗口时报错如下


错误所在事件:表A,AfterSelRangeChange
详细错误信息:
给定关键字不在字典中.
表A的 AfterSelRangeChange代码为：

If e.Form IsNot Nothing Then
    Dim it1 As Winform.StripItem = e.Form.Strips("状态栏").Items("Stat")
  Dim t As Table = e.Table    
    it1.Text = ""
  it1.Text = "合计: " & t.Aggregate(AggregateEnum.Sum,t.TopRow,t.leftCol,t.BottomRow,t.rightCol) & " 计数: " & t.Aggregate(AggregateEnum.Count,t.TopRow,t.leftCol,t.BottomRow,t.rightCol) & " 平均: " & t.Aggregate(AggregateEnum.average,t.TopRow,t.leftCol,t.BottomRow,t.rightCol)
   End If


我看帮助里面 副本的表格 并没有  AfterSelRangeChange 的单独事件可以设置  
请问怎么解决？


[此贴子已经被作者于2021/9/21 8:49:32编辑过]
--  作者：有点蓝
--  发布时间：2021/9/22 9:18:00
--  
表A的 AfterSelRangeChange代码改为：

If Forms("xx窗口").opened Then
    Dim it1 As Winform.StripItem = Forms("xx窗口").Strips("状态栏").Items("Stat")
  Dim t As Table = e.Table    
    it1.Text = ""
  it1.Text = "合计: " & t.Aggregate(AggregateEnum.Sum,t.TopRow,t.leftCol,t.BottomRow,t.rightCol) & " 计数: " & t.Aggregate(AggregateEnum.Count,t.TopRow,t.leftCol,t.BottomRow,t.rightCol) & " 平均: " & t.Aggregate(AggregateEnum.average,t.TopRow,t.leftCol,t.BottomRow,t.rightCol)
   End If