在线等待！大家帮我看一下这几行代码有什么问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from tblInfoPicture');
    open;
  end;
  with adoquery2 do
  begin
    close;
    sql.Clear;
    sql.Add('create table TemptblInfoPicture ('
         +' ID char(10),'
         +' InfoID char(10),'
         +' PicturePath varchar(100),'
         +' Re varchar(200))');
    execsql;
  end;
  while not adoquery1.Eof do
    begin
      adoquery2.FieldByName('ID').AsString:=adoquery1.Fields[0].AsString;
      Next;
    end;
end;
编译时老是报这样的错“ADOQuery2：Field‘ID’not found”

Answer 1

前面一句你只是创建了，adoquery2并没有打开数据集,在  while  前执行。with Adoquery2 do
begin
  sql.clear;
  sql.add(select * from TemptblInfoPicture );
  open;end;---------------------------------while not adoquery1.Eof do
    begin
      adoquery2.FieldByName('ID').AsString:=adoquery1.Fields[0].AsString;
      Next;
    end;现在TemptblInfoPicture 表中没有一条记录你修改什么呀。