| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2171 人关注过本帖, 1 人收藏
标题:grid中如何自动计算
只看楼主 加入收藏
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
这是一个学生体育测试,需要将体育测试原始成绩一个一个录入,并根据学生跑的快慢,折算一个分数。考的项目和标准年年变,我想学习并改进一下。所以求助高手。谢谢。我qq313693957
2015-05-16 11:20
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
我有他的原程序,可是附件上传有限制,所以想通过qq请您指教一下。
2015-05-16 11:22
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
他的代码写在Column9.Text1.LostFocus事件中,你自己改就是了,我不知道他的变量意义和处理逻辑是什么。

程序代码:
    Na=this.Value
    IF  na<0
      MESSAGEBOX('结果不可能为负的!',0+16,'是不是输入错误了?')
    endif

   
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    

if na>3.27 and na<=3.29 and 场次='B'
  repl cjp with 96
endif    

if na>3.29 and na<=3.32 and 场次='B'
  repl cjp with 94
endif    

if na>3.32 and na<=3.35 and 场次='B'
  repl cjp with 92
endif    

if na>3.35 and na<=3.38 and 场次='B'
  repl cjp with 90
endif    

if na>3.38 and na<=3.42 and 场次='B'
  repl cjp with 87
endif    

if na>3.42 and na<=3.46 and 场次='B'
  repl cjp with 84
endif    

if na>3.46 and na<=3.50 and 场次='B'
  repl cjp with 81
endif    

if na>3.50 and na<=3.54 and 场次='B'
  repl cjp with 78
endif    

if na>3.54 and na<=3.58 and 场次='B'
  repl cjp with 75
endif    

if na>3.58 and na<=4.03 and 场次='B'
  repl cjp with 72
endif    

if na>4.03 and na<=4.08 and 场次='B'
  repl cjp with 69
endif    

if na>4.08 and na<=4.13 and 场次='B'
  repl cjp with 66
endif    

if na>4.13 and na<=4.18 and 场次='B'
  repl cjp with 63
endif    

if na>4.18 and na<=4.23 and 场次='B'
  repl cjp with 60
endif    

if na>4.23 and na<=4.30 and 场次='B'
  repl cjp with 50
endif    


if na>4.30 and na<=4.37 and 场次='B'
  repl cjp with 40
endif    


if na>4.37 and na<=4.44 and 场次='B'
  repl cjp with 30
endif    


if na>4.44 and na<=4.51 and 场次='B'
  repl cjp with 20
endif    


if na>4.51 and 场次='B'
  repl cjp with 10
endif    

&&男生组判分   
   
if na>0 and na<=3.30 and 场次='A'
  repl cjp with 100
endif    

if na>3.30 and na<=3.36 and 场次='A'
  repl cjp with 98
endif    

if na>3.36 and na<=3.38 and 场次='A'
  repl cjp with 96
endif    

if na>3.38 and na<=3.42 and 场次='A'
  repl cjp with 94
endif    

if na>3.42 and na<=3.46 and 场次='A'
  repl cjp with 92
endif    

if na>3.46 and na<=3.50 and 场次='A'
  repl cjp with 90
endif    

if na>3.50 and na<=3.54 and 场次='A'
  repl cjp with 87
endif    

if na>3.54 and na<=3.58 and 场次='A'
  repl cjp with 84
endif    

if na>3.58 and na<=4.02 and 场次='A'
  repl cjp with 81
endif    

if na>4.02 and na<=4.06 and 场次='A'
  repl cjp with 78
endif    

if na>4.06 and na<=4.10 and 场次='A'
  repl cjp with 75
endif    

if na>4.10 and na<=4.15 and 场次='A'
  repl cjp with 72
endif    

if na>4.15 and na<=4.20 and 场次='A'
  repl cjp with 69
endif    

if na>4.20 and na<=4.25 and 场次='A'
  repl cjp with 66
endif    

if na>4.25 and na<=4.30 and 场次='A'
  repl cjp with 63
endif    

if na>4.30 and na<=4.35 and 场次='A'
  repl cjp with 60
endif    

if na>4.35 and na<=4.45 and 场次='A'
  repl cjp with 50
endif    


if na>4.45 and na<=4.55 and 场次='A'
  repl cjp with 40
endif    


if na>4.55 and na<=5.05 and 场次='A'
  repl cjp with 30
endif    


if na>5.05 and na<=5.15 and 场次='A'
  repl cjp with 20
endif    


if na>5.15 and 场次='A'
  repl cjp with 10
endif    


&&计算总分和折算分数
   
rEPLACE cjtc WITH cjp*0.3+cjq*0.2
rEPLACE zscj WITH cjtc*0.5




[ 本帖最后由 TonyDeng 于 2015-5-16 11:30 编辑 ]

授人以渔,不授人以鱼。
2015-05-16 11:29
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
弱弱的问,怎么打开Column9.Text1.LostFocus事件?
2015-05-16 11:33
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
位置在这里:先在表单上选中Grid,然后在右侧的屬性对话窗中点击上部的下拉框拉下,找到Column9,选其中的Text1控件。

图片附件: 游客没有浏览图片的权限,请 登录注册

授人以渔,不授人以鱼。
2015-05-16 11:35
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
找到了,可是我觉得代码太复杂了,如何精简。另外您说的na变量的意义是什么?
2015-05-16 11:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
na是文本框Text1的值,就是输入的数据。

授人以渔,不授人以鱼。
2015-05-16 11:37
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
如何精简?查表法咯。这种处理本来不用写在代码中,那叫硬编码,当然缺乏灵活性,稍有修改,就迫使你改程序,正是你现在这样了。对比表放在外部,处理代码查表取对应的结果就可以了,表可以在外面维护的,这样不用改程序。

这人的界面功夫做的不错,可惜逻辑处理弱了一点。

授人以渔,不授人以鱼。
2015-05-16 11:39
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
谢谢了,我找了作个一晚,今一上午都没找到,你给我点出来了。麻烦您给点建议,有可能的话写一新的,给我学习学习。vf我只会简单的用用,编程实在是文盲级别的。不胜感激。

[ 本帖最后由 chychychy 于 2015-5-16 11:51 编辑 ]
2015-05-16 11:46
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
原来的程序是用vfp6写的,我用vfp9,不好挂接。别人有用vfp6的帮你吧。

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



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

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