var I:integer;with query1 do 
begin
with sql do 
begin
clear;
add('select * form table where 条件');
end;
open;
end;query1.first;
while not query1.eof do
begin
i:=i+1;
query1.next;
end;

解决方案 »

  1.   

    方法一:
    SELECT COUNT(*) FROM ... WHERE ... INTO ARRAY aArrayName
    IF aArrayName[1] = 0
       ?"无符合条件的数据"
    ELSE
       ?"符合条件的数据共有",aArrayName[1],"条"
    ENDIF方法二:
    SELECT COUNT(*) FROM ... WHERE ... INTO CURSOR curCursorName
    IF _TALLY = 0
       ?"无符合条件的数据"
    ELSE
       ?"符合条件的数据共有",_TALLY,"条"
       ?"符合条件的数据共有",_TALLY,"条"
    ENDIF方法三:
    SELECT COUNT(*) FROM ... WHERE ... INTO CURSOR curCursorName NOFILTER
    IF _TALLY = 0
       ?"无符合条件的数据"
    ELSE
       ?"符合条件的数据共有",RECCOUNT(curCursorName),"条"
    ENDIF其中第三种方法仅仅是一种方法而已,实际应用中没什么用。
    前两种方法各有各的用途,具体使用那种方法,视环境和要求而定