| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 526 人关注过本帖
标题:计算字段的某一行的值
只看楼主 加入收藏
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
结帖率:90.14%
收藏
已结贴  问题点数:20 回复次数:5 
计算字段的某一行的值
点击"计算"命令完成对期末人数计算,并将计算结果填入为零的单元格的任务.用VFP6.0 谢谢各位高手.
达到目的:合计=1公司办公室+各部门……之和,销售部=销售部1+销售部2+销售部3…… 之和。

计算.rar (2.44 KB)



[ 本帖最后由 tjdeming 于 2013-7-25 19:16 编辑 ]
搜索更多相关主题的帖子: 办公室 销售部 
2013-07-25 18:49
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
SELECT xm,dm,coun(期末人数) 期末人数 FROM book1 WHERE 期末人数=0 GROUP BY dm INTO CURSOR a1
thisform.grid1.RecordSource="a1"
thisform.refresh
计算.rar (2.38 KB)

2013-07-25 19:00
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
回复 2楼 tlliqi
我没有表达清楚,重新写了一下。
2013-07-25 19:17
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
程序代码:
SELECT XM FROM BOOK1 WHERE RECNO()>1 AND [.]$XM INTO CURSOR T
SCAN
   SELECT XM,SUM(期末人数) QMRS FROM BOOK1 WHERE NOT [.]$XM AND ALLTRIM(SUBSTRC(T.XM,AT([.],T.XM)+1))$ALLTRIM(BOOK1.XM) INTO CURSOR T1
   IF _TALLY!=0
      UPDATE BOOK1 SET 期末人数=T1.QMRS WHERE BOOK1.XM==T.XM
   ENDIF
   USE IN T1
   IF RECNO([T])=RECCOUNT([T])
      SELECT XM,SUM(期末人数) QMRS FROM BOOK1 WHERE RECNO()>1 AND [.]$XM INTO CURSOR T1
      UPDATE BOOK1 SET 期末人数=T1.QMRS WHERE RECNO()=1
      USE IN T1
   ENDIF
ENDSCAN
USE IN T
这段代码只是针对这个问题而写的。关键之处在于条件的设定。


[ 本帖最后由 sdta 于 2013-7-26 23:34 编辑 ]

坚守VFP最后的阵地
2013-07-26 19:29
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
回复 4楼 sdta
谢谢!能成功.通用性欠强.我附了字段DM,本想通过DM来解决.
2013-07-27 21:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用tjdeming在2013-7-27 21:34:03的发言:

谢谢!能成功.通用性欠强.我附了字段DM,本想通过DM来解决.
对类似问题,这段代码还是有通用性的。

坚守VFP最后的阵地
2013-07-27 21:43
快速回复:计算字段的某一行的值
数据加载中...
 
   



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

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