在窗口管理---技术支持信息表----设计窗口。
左边的删除按钮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