| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1295 人关注过本帖
标题:条件删除
只看楼主 加入收藏
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
 问题点数:0 回复次数:8 
条件删除
这是删除按建里面的,小弟想留下一个“部门编号”的字段,意思是把编号留下,其它的删除,请教高手在哪里修改?
set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6                                &&  表示按了<是>按钮
    b=RECNO()
    DELETE
    PACK
    go bottom  
ENDIF
THISFORM.REFRESH()
搜索更多相关主题的帖子: 条件 删除 
2008-01-10 16:49
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
不是告诉你了?
repl 字段 with ""

2008-01-10 17:06
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6                                &&  表示按了<是>按钮
    b=RECNO()
repl 部门编号 with ""
    DELETE
    PACK
    go bottom  
ENDIF
THISFORM.REFRESH()

是这样改吗?还是不行哦,我要留下那个编号,其它的删除
2008-01-10 17:12
nkactuary
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-9-3
收藏
得分:0 
用一条命令就行
blank all fields except 部门编号
2008-01-10 17:14
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
可以是可以用了,但是那我表里的所有数据都删除掉了,我是想删除当前资料。还有没有其它办法?
2008-01-10 17:45
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
谢谢兄弟,这个问题搞定了。呵呵。。。。开心,又解开了一个迷
2008-01-10 17:47
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
那我的报表能不能只打印有内容的记录,就像刚才那些删除的内容就在报表上不要体现了
2008-01-10 17:54
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
在启用报表的命令中加上for <条件>。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2008-01-10 20:04
zhaocqdx
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2007-11-17
收藏
得分:0 
这是打印里面的代码:
do case    
    case thisform.optiongroup1.option1.value=1  
        wait window "正在运行。。。。"  timeout 2
        report form 全体档案输出 environment preview
        use  FOR(职工编号,姓名,性别,民族,籍贯,政治面貌,文化程度,出生日期,健康状况,婚姻,职称,现任职务,毕业学校,部门名称,家庭地址,照片)
endcase
加在哪里都提示出错,我主要是想让它只有空编号没内容的就不要一起打出来浪费纸张!帮忙看看啊各位高手,
2008-01-10 20:35
快速回复:条件删除
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036965 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved