主题：应该是个Bug BeforeDeleteDataRow

1、在订单表的 BeforeDeleteDataRow 设置代码：

With Tables("订单")

    For i As Integer = .BottomPosition  To.TopPosition Step -1

        output.show(i)

        If Tables("出库").count > 100   ' 出库表实际没有100行哦。。。 

            e.Cancel = True 

        End If

    Next

End With

2、在订单表手工选择N行，然后右键删除选择的行，会提示N个：

     Exception has been thrown by the target of an invocation. 的错误。。。

With Tables("订单")

    If .BottomPosition <> .TopPosition

        msgbox("静止删除多行")

        e.Cancel = True

    End If

End With