| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2171 人关注过本帖, 1 人收藏
标题:grid中如何自动计算
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
以下是引用chychychy在2015-5-16 08:25:12的发言:

我是想知道代码写在哪里?

在GRID.Column.TextBox的LostFocus事件中处理可以吗?
2015-05-16 09:36
chychychy
Rank: 2
等 级:论坛游民
帖 子:278
专家分:98
注 册:2015-4-18
收藏
得分:0 
别人写了一个表单,可我不明白他将计算的代码写在哪里了,我刚学习,麻烦帮我看一下,说的简单明确点,附上附件。
录入系统111.rar (61.79 KB)
2015-05-16 09:52
chychychy
Rank: 2
等 级:论坛游民
帖 子:278
专家分:98
注 册:2015-4-18
收藏
得分:0 
能通过qq咨询你吗?

[ 本帖最后由 chychychy 于 2015-5-20 09:22 编辑 ]
2015-05-16 09:53
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
示例:
如果是静态设计,直接在Grid1.Column1.Text1的LostFocus事件写:
        REPLACE 跑得分 WITH IIF(跑成绩<=3.25, 100,;
                            IIF(BETWEEN(跑成绩, 3.26, 4), 90, 89)) IN "表1"

程序代码:
CREATE CURSOR 表1 (跑成绩 N(6,2), 跑得分 I)
APPEND BLANK
APPEND BLANK
APPEND BLANK
GO TOP 
of = CREATEOBJECT("_Form")
of.Show(1)
RETURN

DEFINE CLASS _Form AS Form
    ADD OBJECT Grid1 AS Grid
    
    PROCEDURE Grid1.Init
        this.ColumnCount = 2
        BINDEVENT(this.Column1.Text1, "LostFocus", thisform, "_LostFocus")
    ENDPROC

    PROCEDURE _LostFocus
        REPLACE 跑得分 WITH IIF(跑成绩<=3.25, 100,;
                            IIF(BETWEEN(跑成绩, 3.26, 4), 90, 89)) IN "表1"
    ENDPROC
ENDDEFINE
2015-05-16 09:56
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
叫你上传表,你上传个表单。算了。

授人以渔,不授人以鱼。
2015-05-16 10:02
chychychy
Rank: 2
等 级:论坛游民
帖 子:278
专家分:98
注 册:2015-4-18
收藏
得分:0 
不好意思,你是高手吗。我是想你帮我看看,代码究竟写在哪里了,应该怎样方便以后的修改并精简。
新建文件夹.rar (76.18 KB)
2015-05-16 10:45
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
以下是引用chychychy在2015-5-15 23:13:23的发言:

我是新手,你的这个帖子我已搜索看过了,没看懂,我想加入以下类同代码,不知放在哪里才能实现自动计算
if na<=0  
  repl cjp with 0
endif
&&女生组判分     
if na>0 and na<=3.24 and 场次='B'
  repl cjp with 100  
endif
if na>3.24 and na<=3.27 and 场次='B'
  repl cjp with 98
endif


na是什么东西?你把完整的计算处理过程叙述清楚。

授人以渔,不授人以鱼。
2015-05-16 11:07
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
写这程序的人在设置Grid各栏目数据的时候,鼠标点来点去,手指会不会疼?

授人以渔,不授人以鱼。
2015-05-16 11:11
chychychy
Rank: 2
等 级:论坛游民
帖 子:278
专家分:98
注 册:2015-4-18
收藏
得分:0 
这是我用记事本打开的表单中有他写的一段代码,我一直不明白他是将代码写在哪里了,na是什么我也不明白,而且太复杂能否精简。具体说这是一个体育测试,学生要跑和球。比如女生跑的成绩在大于0小于等于3.24区间,则跑的得分为100分,在大于3.24小于3.29区间,得分为98分。以此类推。我将他代码放在附件中。他具体代码见附件
分数计算.rar (1010 Bytes)
。我想通过qq详细咨询并上传附件,可以吗?不好意思,新手。
2015-05-16 11:18
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
代码写在哪里?很多地方都可以写,写的方式也很多,但要先找出原来程序写在哪里才能改。用表单写的,作者自己维护最好,代码遍地开花,我可没那时间和耐心到处翻找(写在PRG中一眼就看到,都不知道现在的人是不是习惯繁琐不怕累的)。如果不先把原来的处理代码找出来,我补上去,二来难免被后续过程破解掉,二来也可能造成数据错乱。

授人以渔,不授人以鱼。
2015-05-16 11:19
快速回复:grid中如何自动计算
数据加载中...
 
   



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

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