[讨论]这段小代吗虽然能正确执行，但总觉得那里不妥，谁帮我看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

if MessageBox.Show("确实要删除吗?", "系统询问", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 7

Return

end if

if CurrentTable.Current = nothing

MessageBox.Show("请先选择一条记录后再删除!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

end if

Dim dr As DataRow = CurrentTable.Current.DataRow

If dr("营销人员") <> User.Name Then

MessageBox.Show("老表姐,这不是你的记录,你无权删除哦")

else

CurrentTable.Current.Delete

End If

主题：[讨论]这段小代吗虽然能正确执行，但总觉得那里不妥，谁帮我看看