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;
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;
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其中第三种方法仅仅是一种方法而已,实际应用中没什么用。
前两种方法各有各的用途,具体使用那种方法,视环境和要求而定