主题：[求助]请各位看看删除按钮的代码是否有问题

if Tables("单位部门").Rows.Count > 0

   if tables("单位部门").current.isnull("单位") then

       tables("单位部门").current.delete()

   else

       Dim Result As DialogResult=messagebox.show("数据删除后将不能恢复,确定要删除该行吗?", "提示", messageboxbuttons.yesno,messageboxicon.question)

       If Result = DialogResult.Yes Then

          tables("单位部门").current.delete()

       end if

   end if

end if


                           

本楼代码有错，刚才网络一直不好，发现后却上不来！