| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 929 人关注过本帖
标题:移去循环的代码
只看楼主 加入收藏
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
 问题点数:0 回复次数:12 
移去循环的代码

怎么在VF里添加移去代码啊!移出循环!!下次在执行循环体的时候不显示所要移去的记录!在命令按钮添加!!代码是什么??帮帮我吧!

搜索更多相关主题的帖子: 代码 
2006-12-18 16:52
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
天,我怎么那么笨,完全看不懂楼主在说什么.

两人行已有我师……
2006-12-18 19:21
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
1、在do while......enddo循环语句中,用loop可以返回do while开始的语句,用exit可以跳到enddo后面的语句,在for......endfor也可以用这两个命令改变循环语句的执行顺序。
2、不需要的记录可以通过删除的方式将它移出,如果你既需要保留某些记录又不想显示这些记录的话,可以专门增加一个逻辑值的字段,当这个字段为某个值时就不显示,从而达到你的目的。
3、在命令按钮中要添加什么,是要添加空记录还是其他?请你表述更清楚些。
4、当你有多个问题需要同时询问的话,建议你象我这样用1、2、3、4这些数码将问题区分开,以便别人回答。
5、如果我上述的回答不是你所需要的,就当我没有回答罢了!

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2006-12-18 19:56
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
得分:0 

对不起,我没说清楚!!
我是想说:建立一个表单中,能浏览一个表中的记录,想把一条记录移去,但是在表中保留此记录!下一次再浏览的时候,移去的记录不显示~!这个移去代码怎么写啊!

2006-12-19 14:23
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
得分:0 
谢谢你的回答,我很满意!不过你能针对我的问题解决一下吗?好象和你的第2条差不多!!
2006-12-19 14:26
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
得分:0 
以下是引用hu9jj在2006-12-18 19:56:48的发言:
2、如果你既需要保留某些记录又不想显示这些记录的话,可以专门增加一个逻辑值的字段,当这个字段为某个值时就不显示,从而达到你的目的。

这个怎么添加代码啊!

2006-12-19 14:30
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 

假定逻辑字段名为“xs”,你可在“移去”按钮的click事件中添加下列代码:

if MessageBox("确实要移去"+alltri(str(recc()))+"号记录吗?",49,"操作确认")=1 &&提供一次确认的机会
xs = .f. &&设置不显示的记录
set filte to xs &&将xs=.t.的记录筛选出来
go bott &&移动记录指针,让筛选起作用
thisform.列表框名.refresh &&刷新列表框
endif

你只要先在列表框内选定要移去的记录,然后再点击“移去”按钮,确认后将该记录移去。
在此之前你需要将所有需要显示的记录的xs字段值设置为.t.。


活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2006-12-19 19:13
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
得分:0 

谢谢hu9jj

2006-12-19 20:30
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
hu9jj利用了逻辑变量实现楼主的功能,很妙。这里提供一个解决方案,供楼主参考。
假设要浏览的记录满足的条件被放在一个文本框text1中。那么点击“浏览”命令按钮的click代码
cExprL=alltrim(thisform.text1.value)
if empty(cExprL) &&没有输入条件
set filter to
else
if type(cExprL)="L"
set filter to &cExprL
else
set filter to
endif
endif
go top
thisform.refresh

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-12-19 22:06
wangzhengfei
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-18
收藏
得分:0 

好象hu9jj不太对啊!运行后,要移去的记录在表中都改成了.T.了。这样表中的记录不就改了吗?还有没有不改记录的!

2006-12-22 17:33
快速回复:移去循环的代码
数据加载中...
 
   



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

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