主题：应该是个Bug BeforeDeleteDataRow

 思路错了，不能这样写代码。如果是想阻止删除，就直接写

If Tables("出库").count > 100   ' 出库表实际没有100行哦...
    e.Cancel = True
End If

 每删除一行之前都会触发这儿事件的。

 在这个事件，不能使用Table的一些属性，比如 BottomPosition 和 TopPosition，而且用这两个判断也是不准确的。

 用其它方法变通代替。

直接去控制菜单代码。

系统菜单，不是可以修改的么？只是修改一下快捷菜单的代码而已。