你可以试着把数据库中的记录按 你的日期型字段重排,然后用循环来判断,比如:
var
i:Integer;
field1_str:String;
if Table1.Active=false then
Table1.Active:=true;
Table1.First;
for i:=0 to Table1.recordCount do
begin
field1_str:=Table1.FieldByName('你的字段名').asString;
if length(Trim(filed1_str))=0 then break;
Table1.Next;
end;
当然你也可以用上面选手的答案