主题：关于（BeforeSelRangeChange）代码无效

currentchanged事件中代码：MessageBox.Show("报告")

If e.Table.AllowEdit=True Then    

    e.Cancel=True   '编辑状态不允许选择其他行

End If

If e.NewRange.BottomRow-e.NewRange.TopRow>0 Then

    e.Cancel=True   '不允许选择多行

End If

要实现的目的是：表在编辑状态不允许选择其他行，这样设置后，点击其他行是选择不到，但是currentchanged事件中的代码一直会执行，或者点击窗口中其他表后，再返回在编辑的行也是会执行currentchanged事件