[浏览完整版]
标题：[求助]请各位看看删除按钮的代码是否有问题
1楼
liuruihua 发表于：2009/1/9 23:39:00用户已锁定！
2楼
程兴刚 发表于：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 |
3楼
liuruihua 发表于：2009/1/10 8:48:00用户已锁定！
4楼
程兴刚 发表于：2009/1/10 10:28:00您为什么不下载3楼的文件进行测试？
我这里已经没有任何问题！
我这里已经没有任何问题！
5楼
liuruihua 发表于：2009/1/10 10:56:00用户已锁定！
6楼
ybil 发表于：2009/1/10 11:43:00我这里和lZ一样,出现『红X』!
7楼
程兴刚 发表于：2009/1/10 12:39:00一个简单的 Syscmd.Row.Delete()被楼主搞得那么复杂，删除原来所有的代码，换为系统命令不是很好吗？简洁实用！
Syscmd.Row.Delete()
8楼
程兴刚 发表于：2009/1/10 12:54:00确实要用代码的话，这样试试：
本楼代码有错，刚才网络一直不好，发现后却上不来！
[此贴子已经被作者于2009-1-10 16:46:58编辑过]
9楼
ybil 发表于：2009/1/10 13:10:00以下是引用程兴刚在2009-1-10 12:39:00的发言：
一个简单的 Syscmd.Row.Delete()被楼主搞得那么复杂，删除原来所有的代码，换为系统命令不是很好吗？简洁实用！
Syscmd.Row.Delete()
话不能这么说,楼主的代码并没错误,却出现『红X』,应该存在Bug!我就常常因更改一下列(此列为一般列)名而出现『红X』现象.老六应正视这个问题!
10楼
liuruihua 发表于：2009/1/10 16:43:00用户已锁定！