主题：[求助]菜单 AfterSelRangeChange

老师，我有一 表A 有时增加列的时候 提示 “表A 中没有 “”   的列” 详细错误提示 ：错误所在事件

菜单 AfterSelRangeChange  未将引用设置到对象实例。但是表A的AfterSelRangeChange 没有代码，仔细检查了表A的每一列，没有“” 符号的列，我也没有编译过主程序菜单AfterSelRangeChange 事件   是不是主程序菜单的AfterSelRangeChange 事件有问题？

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol
    If c < 1 Then
        Continue For
    End If
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") =  True

 你的AfterSelRangeChanged事件写了什么代码，贴出来。

回复7楼，切换绑定表之前，先把选中多行改成选中一行，如 e.Form.Controls("Table1").Table.select(0,0)