var
i:integer;
//......
qry1.First;
i:=0;
while not qry1.Eof do
begin
qry2.Close;
qry2.Sql.Clear;
qry2.Sql.Text:='insert into Table1 values (:BM,:JE) ';
st:=TstringList.Create;
st.Add('1003');
st.Add('1004');
st.Add('1005');
qry2.ParamByName('BM').AsString:=st.Strings[i];
st.Free;
qry2.ParamByName('JE').AsFloat:=qry1.FieldByName('xsje').AsFloat;
qry2.ExecSql;
qry1.Next;
i:=i+1;
end;
//注意:这里qry1的结果是需要固定排序的 :D
delphi 将Query的结果与字符串一条条按顺序组合插入新表
最新推荐文章于 2023-11-17 21:25:52 发布