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

Dim dr As DataRow = CurrentTable.Current.DataRow

If dr IsNot Nothing Then

    Dim Result As DialogResult

    Result = MessageBox.Show("确实要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

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

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

        e.Cancel = True

    Else

        If Result = DialogResult.Yes Then

             Tables("短信通_Table1").Current.Delete

            End If

    End If

End If

Dim dr As DataRow = CurrentTable.Current.DataRow

If dr IsNot Nothing Then

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

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

        e.Cancel = True

    Else

        If Result = DialogResult.Yes Then

             Tables("短信通_Table1").Current.Delete

            End If

    End If

End If

 

 

感觉改一下次序会顺一点，不会直接跳出删除确认的对话框