主题：[求助][求助] 各位大神快来帮帮我吧！！！！！！

Dim a As Row = Tables("图纸登记表").current
If a.Locked  = True '如果此行目前锁定
    Messagebox.show("行被锁定,无法删除,请解锁!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    If MessageBox.Show("⌒_⌒确认删除记录吗?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
        Tables("图纸登记表").Current.Delete
    End If
End If