主题：移动或删除（新增未保存的行）弹出。

BeforeClose窗口事件：

  For Each dr As Row In Tables("凭证.凭证明细").Rows

                If dr.IsNull("摘要") And dr.IsNull("科目代码") Then

                    If dr.IsNull("借方金额") And dr.IsNull("贷方金额") Then

       msgbox(0)

                        dr.Remove（改造dele 删除也一样）

                    Else

                        MessageBox.show("请输入摘要及会计科目!")

                        e.Cancel = True

                        Return

                    End If