- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么没法删除指定行了？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54319)
-- 发布时间：2014/7/25 16:17:00
-- 怎么没法删除指定行了？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:临时版本跟踪系统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
-- 发布时间：2014/7/25 16:18:00
--
If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.Yes Then
Dim r As Row =Tables("技术支持信息表").Current
r.locked = False
Tables("技术支持信息表").Current.Delete()
End If
-- 发布时间：2014/7/25 16:20:00
--
If MessageBox.show("友情提醒--你确认要删除此员工的信息吗?","点击删除时请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)=DialogResult.Yes Then
Dim r As Row =Tables("技术支持信息表").Current
r.locked = False
Tables("技术支持信息表").Current.Delete()
End If
-- 发布时间：2014/7/25 16:29:00
--
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 上面的在没有行的情况下,会出现错误! |