主题：怎么没法删除指定行了？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统26.rar

在窗口管理---技术支持信息表----设计窗口。

左边的删除按钮click代码如下。发现不能执行删除命令。

If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.OK Then
    Dim r As Row =Tables("技术支持信息表").Current
    r.locked = False
    Tables("技术支持信息表").Current.Delete()
End If

If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.Yes Then
    Dim r As Row =Tables("技术支持信息表").Current
    r.locked = False
    Tables("技术支持信息表").Current.Delete()
End If

If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.Yes Then
    Dim r As Row =Tables("技术支持信息表").Current
    r.locked = False
    Tables("技术支持信息表").Current.Delete()
End If

If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.Yes Then     Dim r As Row =Tables("技术支持信息表").Current if r isnot nothing then     r.locked = False     r.Delete() end if End If 上面的在没有行的情况下,会出现错误!