可以在文本框中输入任意正整数后敲回车键再输入 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 可以在文本框中输入任意正整数后敲回车键再输入

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2994 人关注过本帖

标题：可以在文本框中输入任意正整数后敲回车键再输入

只看楼主加入收藏

ysiso9001

等　级：新手上路
帖　子：28
专家分：7
注　册：2013-4-23

第 11 楼

得分:0

以下是引用蘑菇702在2013-6-2 09:16:27的发言：

还是和题目要求有点不符。可以在文本框中输入任意正整数后敲回车键再输入
这个敲回车键再输入没有做到。
另外每次我按照你的代码写上去，结果我的都运行不出来，但你的都可以运行

我不知道你怎么操作的，我看了下5楼的表单，完全符合你的要求，回车再输入也有的

程序代码：

IF NKEYCODE=13
   THISFORM.LCSTR=THISFORM.LCSTR+ALLTRIM(THIS.VALUE)+IIF(ALLTRIM(THIS.VALUE)!=[0],[+],[])
   THISFORM.CAPTION=THISFORM.LCSTR
ENDIF
IF ALLTRIM(THIS.VALUE)=[0]
   THISFORM.LABEL1.CAPTION=[共输入数据 ]+TRANSFORM(OCCURS([+],THISFORM.LCSTR))+[ 个，平均值为 ]+TRANSFORM(EVALUATE(THISFORM.LCSTR)/OCCURS([+],THISFORM.LCSTR))
   THISFORM.LCSTR=[]
   THIS.VALUE=[]
   THIS.SETFOCUS
ENDIF

这人家的源码怎么能没呢

2013-06-02 12:30

蘑菇702

等　级：新手上路
帖　子：21
专家分：0
注　册：2013-3-31

第 12 楼

得分:0

回复 9楼 ysiso9001

运行的时候显示找不到变量 NKEYCODE
而且我按回车键的时候，就会跳到command按钮上

2013-06-02 12:34

ysiso9001

等　级：新手上路
帖　子：28
专家分：7
注　册：2013-4-23

第 13 楼

得分:0

回复 12楼蘑菇702

你确定是这个表单没有command按钮的吧输入流程显示在了表单的caption上结果在下面的label上

5楼给你的表单时完全没有问题的而且你不是说输入0为止吗要command来干什么？不太明白，click显示结果？

程序代码：

IF ALLTRIM(THIS.VALUE)=[0]
   THISFORM.LABEL1.CAPTION=[共输入数据 ]+TRANSFORM(OCCURS([+],THISFORM.LCSTR))+[ 个，平均值为 ]+TRANSFORM(EVALUATE(THISFORM.LCSTR)/OCCURS([+],THISFORM.LCSTR))
   THISFORM.LCSTR=[]
   THIS.VALUE=[]
   THIS.SETFOCUS
ENDIF

那你可以把这段放到command里在text的keypress代码里加一句 THIS.SETFOCUS 就不会丢失text的焦点了

2013-06-02 12:43

taifu945

等　级：贵宾
威　望：80
帖　子：1545
专家分：3298
注　册：2012-7-6

第 14 楼

得分:2

以下是引用蘑菇702在2013-6-2 11:46:44的发言：

还是不行

能告诉我不行的现象吗？或者是VFP的什么提示也行。我后来又做了个表单，比较简洁，但能实现你所说的功能(思路就是我在前面贴出的，实践证明可以)。你下载了试试，不知道是不是需要这个效果。

论坛.rar (1.93 KB)

[ 本帖最后由 taifu945 于 2013-6-2 18:50 编辑 ]

2013-06-02 18:22

快速回复：可以在文本框中输入任意正整数后敲回车键再输入