求助：数据库表某列向上统计空白格数，直到向止方向有数字为止，该怎样编程？小女子向大侠请教。

求各位大侠、大师们指点迷津！

select sum(iif(某列=0,1,0)) 统计数 from 数据库表 &&如果某列为数字类型
select sum(iif(某列="",1,0)) 统计数 from 数据库表 &&如果某列为文本类型

select sum(iif(某列=0,1,0)) 统计数 from 数据库表 &&如果某列为数字类型
这个公式不对啊。
这个公式把某列的所有行不管有没有数字，都统计了啊。。
我的原意是指：从某列的最后一行，向上统计该列的空白格数，一直向上统计到有数字为止，不是统计到该列第一行。
再帮帮我吧

比如数据库表：
第1行   缺席    姓名     性别
第2行             甲      男
第3行    1        甲      男
第4行             甲      男
第5行    1        甲      男
第6行             甲      男
第7行             甲      男
第8行             甲      男              经统计“缺席”这一列，“缺席”的空格数为3。   （如果最后一行缺席有数字1，则统计“缺席”这一列为0。）
 

local lnshu
lnshu=0
go bottom
do while !bof()
  if empty(缺席)
    lnshu=lnshu+1
  else
    exit
  endif
  skip -1
enddo
?lnshu

谢谢！wzxc，非常感谢您！
还有一个疑问：我想把统计出来的数字放在追加出来的最一行空白行该列位置，该怎样编程操作？

问题已得到解决，谢谢所有关心和支持编程的大师们！祝您们一切顺利！春节快乐！

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

整理已回复高手的如下

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编辑过]