主题：非管理员不能删除数据，但是通过窗口按钮可以删除数据怎么弄？

如标题。非管理员不能删除数据，但是通过窗口的取消按钮可以删除当前新增的行怎么弄？

此主题相关图片如下：9.jpg

客户信息表（kehu）

If  User.name<> "管理员" Then
    e.Cancel = True '那么取消输入并提示用户
    Messagebox.Show("请联系管理员删除客户信息","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

因为打开窗口后，立马新增一行才能在窗口里输入数据。

窗口 AfterLoad 事件，Tables("kehu").AddNew() 

那么对应的，如果窗口控件 触发确认按钮，则保存这一行。如果取消则删除这一行。（比如录入新客户信息的时候发现重复了，肯定要选取消按钮，肯定要删除这一行）

取消的按钮事件

Tables("kehu").Current.Delete()

e.Form.Close()