主题：热烈庆祝找了半个月的错误原因找到了。

把删除按钮的代码改为：

With Tables("销售.明细")
    If .current IsNot Nothing Then
        .Current("商品") = Nothing
        .Current.delete
    End If
End With

可以避开这个问题。