主题：请教：能否动态设置AfterSelRangeChange事件代码

窗口表操作

目录树筛选时每次都从后台查询数据，然后给窗口表绑定数据源。

每次绑定数据源，都会导致在窗口表的 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 > 0 Then

        If t.Cols(c).IsNumeric = False Then

            Return

        End If

    End If

Next