1,593
社区成员
发帖
与我相关
我的任务
分享
with qDetail do
begin
first;//移到首行,如果当前行开始删除该语句
i:=12345;
while not Eof do
begin
Edit;
qDetail.FieldByName('gxId').AsInteger := i + 1;
i := i + 1;
Next;
end;
end;