2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TMDI_1_Frm.Button11Click(Sender: TObject);
var S:String;
begin
S:='2011-01-01 00:00'; // 时间格式
with query1 do
begin
First;
while not Eof do
begin
if FieldByName('日期').asString>S
then S:=FieldByName('日期').asString;
Next;
end;
end;
end;
代码仅供参考。