新手上線:查詢一個适合條件的記錄保存在臨時表中,請大冢幫幫我!我的代碼出現錯誤


 var
   sqlstr:string;
   xh:integer;
begin
    with DataModule1.tempQuery1 do
      begin
        close;
        sql.Clear;
        sql.Add('delete from ymonth');
        prepare;
        execsql;
      end;    sqlstr:='select * from ytdhao where 1=1';
    dataModule1.tihaoquery1.RequestLive:=false;
   with dataModule1.tihaoquery1  do
    begin
        close;
        sql.Clear;
        if (combobox1.Text<>'') then
            begin
              sqlstr:=sqlstr+'and 客戶編號='''+combobox1.text+'''';
            end;
        if (combobox2.text<>'') then
            begin
              sqlstr:=sqlstr+'and 業務='''+ComboBox2.text+'''';
            end;
              sql.Add(sqlstr);
              sql.Add('and 寄件日>=:com and 寄件日<=:com1 order by 寄件日');
              params[0].Value:=datetostr(DateTimePicker1.Date);
              params[1].Value:=datetostr(DateTimePicker2.Date);
              prepare;
              execsql;
             open;
             DataModule1.tempQuery1.Open;
        for xh:=1 to dataModule1.tihaoquery1.RecordCount do
             begin
                DataModule1.tempQuery1.Append;
              //  DataModule1.tempQuery1.FieldByName('xh').AsString:=xh+1;
                DataModule1.tempQuery1.FieldByName('客戶編號').AsString:=DataModule1.tihaoquery1.fieldbyname('客戶編號').AsString;
                DataModule1.tempQuery1.FieldByName('名稱').AsString:=DataModule1.tihaoquery1.fieldbyname('名稱').AsString;
                DataModule1.tempQuery1.FieldByName('寄件日').AsString:=DataModule1.tihaoquery1.fieldbyname('寄件日').AsString;
                DataModule1.tempQuery1.FieldByName('提單號碼').AsString:=DataModule1.tihaoquery1.fieldbyname('提單號碼').AsString;
                DataModule1.tempQuery1.FieldByName('件數').AsString:=DataModule1.tihaoquery1.fieldbyname('件數').AsString;
                DataModule1.tempQuery1.FieldByName('重量').AsString:=DataModule1.tihaoquery1.fieldbyname('重量').AsString;
                DataModule1.tempQuery1.FieldByName('目的地').AsString:=DataModule1.tihaoquery1.fieldbyname('目的地').AsString;
                DataModule1.tempQuery1.FieldByName('運費金額').AsString:=DataModule1.tihaoquery1.fieldbyname('運費金額').AsString;
                DataModule1.tempQuery1.FieldByName('備注').AsString:=DataModule1.tihaoquery1.fieldbyname('備注').AsString;
                DataModule1.tempQuery1.FieldByName('業務').AsString:=DataModule1.tihaoquery1.fieldbyname('業務').AsString;
                DataModule1.tempQuery1.Post;
              end;
            DataModule1.tihaoquery1.Next;            end;      end;