| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 643 人关注过本帖, 1 人收藏
标题:求助:数据库表某列向上统计空白格数,直到向上方向有数字为止,该怎样编程 ...
只看楼主 加入收藏
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:9 
求助:数据库表某列向上统计空白格数,直到向上方向有数字为止,该怎样编程?小女子向大侠请教。
求助:数据库表某列向上统计空白格数,直到向止方向有数字为止,该怎样编程?小女子向大侠请教。
搜索更多相关主题的帖子: 数据库表 怎样编程 小女子 统计 
2014-01-22 16:37
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
求各位大侠、大师们指点迷津!
2014-01-22 16:40
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
select sum(iif(某列=0,1,0)) 统计数 from 数据库表 &&如果某列为数字类型
select sum(iif(某列="",1,0)) 统计数 from 数据库表 &&如果某列为文本类型
2014-01-22 17:20
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
select sum(iif(某列=0,1,0)) 统计数 from 数据库表 &&如果某列为数字类型
这个公式不对啊。
这个公式把某列的所有行不管有没有数字,都统计了啊。
我的原意是指:从某列的最后一行,向上统计该列的空白格数,一直向上统计到有数字为止,不是统计到该列第一行。
再帮帮我吧
2014-01-22 17:37
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
比如数据库表:
第1行   缺席    姓名     性别
第2行                  
第3行    1              
第4行                  
第5行    1              
第6行                  
第7行                  
第8行                                经统计“缺席”这一列,“缺席”的空格数为3。   (如果最后一行缺席有数字1,则统计“缺席”这一列为0。)
 
2014-01-22 17:45
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:15 
local lnshu
lnshu=0
go bottom
do while !bof()
  if empty(缺席)
    lnshu=lnshu+1
  else
    exit
  endif
  skip -1
enddo
?lnshu

认真看书学习,弄通Fox主义。
2014-01-22 18:02
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
谢谢!wzxc,非常感谢您!
还有一个疑问:我想把统计出来的数字放在追加出来的最一行空白行该列位置,该怎样编程操作?
2014-01-22 18:18
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
问题已得到解决,谢谢所有关心和支持编程的大师们!祝您们一切顺利!春节快乐!
2014-01-22 18:25
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:5 
CALCULATE MAX(RECNO()) TO n1 FOR NOT EMPTY(缺席)
IF n1>RECCOUNT()
    GO top
ELSE
    GO n1
ENDIF
COUNT REST TO n2 FOR EMPTY(缺席)
IF n2>0
    GO bott
    REPLACE 缺席 WITH n2
ENDIF
2014-01-22 18:42
chychychy
Rank: 2
等 级:论坛游民
帖 子:278
专家分:98
注 册:2015-4-18
收藏
得分:0 
整理已回复高手的如下
程序代码:
Clear All
Clear
Create Cursor tt ( xh N(6),缺席 c(2),姓名 c(6),性别 c(2) )
Insert Into tt Values(0," ","甲","男")
Insert Into tt Values(0,"1","甲","男")
Insert Into tt Values(0," ","甲","男")
Insert Into tt Values(0,"1","甲","男")
Insert Into tt Values(0," ","甲","男")
Insert Into tt Values(0," ","甲","男")
Insert Into tt Values(0,"","甲","男")
Replace xh With Recno() All
Go Top
Browse
*方法1
Store 0 To lnshu
Go Bottom
Do While Not Eof()
    If Empty(缺席)
        lnshu=lnshu+1
    Else
        Exit
    Endif
    Skip -1
Enddo
?lnshu
Messagebox("缺席"+Transform(lnshu)+"人")
If lnshu>0
    GO BOTTOM &&&可以省略本句
    Append Blank
    Replace 缺席 With Alltrim(Str(lnshu))
Endif
Browse

*方法2
Calculate Max(Recno()) To ncount1 For Not Empty(缺席)
If ncount1>=Reccount()
    Go Top
    Messagebox("无缺席")
Else
    Go ncount1
    Count Rest To ncount2 For Empty(缺席)
    Messagebox("缺席"+Transform(ncount2)+"人")
    GO BOTTOM &&&可以省略本句
    Append Blank
    Replace 缺席 With Alltrim(Str(ncount2))
ENDIF
BROWSE 



[此贴子已经被作者于2024-8-7 16:06编辑过]

2024-08-07 16:02
快速回复:求助:数据库表某列向上统计空白格数,直到向上方向有数字为止,该怎样 ...
数据加载中...
 
   



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

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