首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

请十豆三等各位老师帮小弟我看一下,多谢

2013-09-11 
请十豆三等各位老师帮我看一下,谢谢!我有一表,字段和内容如下:编号、姓名、工资1990、工资19991、工资1992、工

请十豆三等各位老师帮我看一下,谢谢!
我有一表,字段和内容如下:
编号、姓名、工资1990、工资19991、工资1992、工资1993………工资2012
 1 小王      200      230       0          0          1987
  2  小张     0.00     0.00      260        280         2010
  3  小杨      205      260       0         290         2100
………
我的问题是:写段代码查出某位员工1900年至2013年工资为0的数字,就是有几年为0。
我自己搞了一个没成功,郁闷唷。
FOR K = 1 TO FCOUNT()
  F( K ) = FIELD(K)
ENDFOR
COUNT  FOR  F( K)=0  to X
[解决办法]
示例:
USE R:\TEMP\TTY
FF=AFIELDS(DD,'TTY')
DD1='SELECT 编号,姓名,'
DD2=""
FOR I=1 TO FF
IF !INLIST(DD(I,1),'编号','姓名') THEN 
DD2=DD2+'SUM(IIF('+DD(I,1)+'=0,1,0)) AS '+DD(I,1)+','
ENDIF 
NEXT
DD2=DD1+LEFT(DD2,LEN(DD2)-1)+' FROM R:\TEMP\TTY GROUP BY 编号,姓名'
&DD2
[解决办法]
USE R:\TEMP\mjx
FF=AFIELDS(DD,'mjx')
DD1='SELECT 编号,姓名,'
DD2=""
FOR I=1 TO FF
IF LEFTc(DD(I,1),2)='工资' &&自行修改此处判断
DD2=DD2+'SUM(IIF('+DD(I,1)+'=0,1,0)) AS '+DD(I,1)+','
ENDIF 
NEXT
DD2=DD1+LEFT(DD2,LEN(DD2)-1)+' FROM R:\TEMP\mjx GROUP BY 编号,姓名'
*?dd2
&DD2
我的异常网推荐解决方案:软件开发者薪资,http://www.myexception.cn/other/1391128.html

热点排行