- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请各位看看删除按钮的代码是否有问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1596)
-- 发布时间：2009/1/10 2:03:00
--
判断一下，当总行数小于1，也就是只剩下标题行的时候，则不执行删除操作即可：
if Tables("单位部门").Rows.Count > 0
if tables("单位部门").current.isnull("单位") then
tables("单位部门").current.delete()
else
Dim Result As DialogResult=messagebox.show("数据删除后将不能恢复,确定要删除该行吗?", "提示", messageboxbuttons.yesno,messageboxicon.question)
If Result = DialogResult.Yes Then
tables("单位部门").current.delete()
end if
end if
end if
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2009/1/10 10:28:00
--
您为什么不下载3楼的文件进行测试？
我这里已经没有任何问题！
-- 发布时间：2009/1/10 11:43:00
--
我这里和lZ一样,出现『红X』!
-- 发布时间：2009/1/10 12:39:00
--
一个简单的 Syscmd.Row.Delete()被楼主搞得那么复杂，删除原来所有的代码，换为系统命令不是很好吗？简洁实用！
Syscmd.Row.Delete()
-- 发布时间：2009/1/10 12:54:00
--
确实要用代码的话，这样试试：
本楼代码有错，刚才网络一直不好，发现后却上不来！
-- 发布时间：2009/1/10 13:10:00
--
一个简单的 Syscmd.Row.Delete()被楼主搞得那么复杂，删除原来所有的代码，换为系统命令不是很好吗？简洁实用！
Syscmd.Row.Delete()
话不能这么说,楼主的代码并没错误,却出现『红X』,应该存在Bug!我就常常因更改一下列(此列为一般列)名而出现『红X』现象.老六应正视这个问题!
-- 发布时间：2009/1/10 16:45:00
--
话不能这么说,楼主的代码并没错误,却出现『红X』,应该存在Bug!我就常常因更改一下列(此列为一般列)名而出现『红X』现象.老六应正视这个问题!
是的,这是我的理解问题，平常习惯了走捷径。不过这个问题估计要是改起来的话可能比较费劲了，我也遇到过类似现象，避免方法一半是靠增加判断来避免的！
-- 发布时间：2009/1/10 19:05:00
--
应是bug吧。
-- 发布时间：2009/1/10 20:36:00
--
程版,我下载了二楼的文件,也会报错哦....
此主题相关图片如下：001.jpg
-- 发布时间：2009/1/13 20:42:00
--
呵呵，收到，我看看