H
hqh1234
Unregistered / Unconfirmed
GUEST, unregistred user!
程序以SQL作为库结构,用select into 将查询结果导入新表,在新表中执行Table.first后
新表记录没有定位按查询条件产生的第一笔数据;
Query21.close;
Query21.SQL.Clear;
Query21.SQL.add('Exec sp_dboption "STQA","SELECT INTO","true"');
Query21.SQL.add('select top 5 不良项目,数量 INTO Table2');
Query21.SQL.add('from Table1');
Query21.SQL.add('order by 数量 desc');
Query21.prepare;
Query21.execSQL;
With Table2do
begin
Active:=True;
Table2.First;
Table2.Edit;
Myvalue1:=Table2.FieldByName('数量').asinteger;
end;
查询结果:
D7 500
D3 400
D5 300
D1 200
D4 100
执行 table2.first后
Myvalue= 200而不是500
新表记录没有定位按查询条件产生的第一笔数据;
Query21.close;
Query21.SQL.Clear;
Query21.SQL.add('Exec sp_dboption "STQA","SELECT INTO","true"');
Query21.SQL.add('select top 5 不良项目,数量 INTO Table2');
Query21.SQL.add('from Table1');
Query21.SQL.add('order by 数量 desc');
Query21.prepare;
Query21.execSQL;
With Table2do
begin
Active:=True;
Table2.First;
Table2.Edit;
Myvalue1:=Table2.FieldByName('数量').asinteger;
end;
查询结果:
D7 500
D3 400
D5 300
D1 200
D4 100
执行 table2.first后
Myvalue= 200而不是500