程序代码：

create cursor b1 (jnh N(2),mm c(3),fmm c(3))
insert into b1 values (1,"","M2")
insert into b1 values (2,"","M2")
insert into b1 values (3,"","")
FOR i=2 TO FCOUNT()
    SELECT * FROM b1 WHERE !EMPTY(FIELD(i)) 
    RETURN
endfor    

程序代码：

create cursor b1 (jnh N(2),mm c(3),fmm c(3))
insert into b1 values (1,"","M2")
insert into b1 values (2,"","M2")
insert into b1 values (3,"","")
FOR i=2 TO FCOUNT()
    SELECT * FROM b1 WHERE !EMPTY(mm) 
    RETURN
endfor    

[此贴子已经被作者于2020-11-1 21:05编辑过]

程序代码：

CLEAR 
create cursor b1 (jnh N(2),mm c(3),fmm c(3))
insert into b1 values (1,"","M2")
insert into b1 values (2,"","M2")
insert into b1 values (3,"","")
FOR lnj = 1 TO FCOUNT()
    n1 = RECCOUNT()
    SCAN 
        c1 = EVALUATE(FIELD(lnj))
        IF EMPTY(c1)
            n1 = n1 - 1
        ELSE
            EXIT 
        ENDIF 
    ENDSCAN 
    IF n1 = 0
        ? TRANSFORM(lnj) + "列为空"
    ENDIF 
ENDFOR

程序代码：

SELECT b1
FOR i=2 TO FCOUNT()
    ? fun(i)
ENDFOR

FUNCTION fun(i)
    LOCATE FOR !EMPTY(EVALUATE(FIELD(i)))
    RETURN FOUND()
ENDFUNC