| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1252 人关注过本帖
标题:VFP 查询统计求教
取消只看楼主 加入收藏
changke119
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2012-7-6
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:2 
VFP 查询统计求教
请大家帮我看看这个编程有什么问题,我也是从网上下载下来的,自己稍微改改名称,其他查询还好,就是统计的时候,统计不准确,有时候统计是正确的,有时候统计是不正确,不知道什么原因啊,还有查询工号、时间什么经常会出现日期的格式,不知怎么回事,代码如下:




if thisform.grid1.recordsource='临时培训记录'
   thisform.grid1.recordsource='培训记录'
endif'
private CXTJ
if empty() or empty() ;
   or empty(thisform.text1.value) && 判断列表框和文本框是否为空
    messagebox('请输入完整条件!',16,'系统提示')
   
else
  do case
    case alltrim()='时间'
     CXTJ=alltrim();     
     +' '+alltrim();
     +' '+alltrim(thisform.text1.value)
    case alltrim()='工号'
     CXTJ=alltrim();     
     +' '+alltrim();
     +' '+alltrim(thisform.text1.value)
    otherwise
     CXTJ=alltrim();     
     +' '+alltrim();
     +' "'+alltrim(thisform.text1.value)+'"'
  endcase
  Select * from 培训记录 where &CXTJ. into cursor 临时培训记录
  thisform.grid1.recordsource='临时培训记录'
  thisform.grid1.backcolor=rgb(200,224,248)
  sele 临时培训记录
  thisform.text2.value=reccount()
     sum(时间) to thisform.text3.value
     aver(时间) to thisform.text4.value
endif
搜索更多相关主题的帖子: 统计 private 文本框 
2012-07-17 10:02
changke119
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2012-7-6
收藏
得分:0 
时间其实就是个数字,因为我是为了统计培训的时间,所以我输入的是30,45这样的数字, 工号的也是数字,比如112或者115
2012-07-18 16:18
changke119
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2012-7-6
收藏
得分:0 
比如我的上面显示是这样的

姓名  工号   课程名称  时间   月份  评价
A     101    计算机    30     7月份  
B     102    化学      40     5月份  
A     101    化学      40     6月份  一般

查询条件 comb01  combo2  text1

符合条件数  ________   总时间 __________  平均时间  __________
  查询                           退出

如果我点击查询姓名=A是 显示结果如下

姓名  工号   课程名称  时间   月份  评价
A     101    计算机    30     7月份  
A     101    化学      40     6月份  一般

但符合条件数仍然是 3    总时间  80    平均时间  40  这是为什么,然后如果你查询按照工号=101的话,在TEXT1中要求你输入的格式是按照时间来填入的,请高手帮我一下。

2012-07-18 16:28
快速回复:VFP 查询统计求教
数据加载中...
 
   



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

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