关于表的添加内容~~~~~~~~~

我有下面三个表
aa.dbf
jh       yczmc    yxhd   cx
nm1      ch1       0.2   0.6
nm2      ch2       0.4   0.8bb.dbf
jh       k     hs
nm1      1     0.467
nm2      2     0.456cc.dbf
cenghao      xuhao
ch1           1
ch2           2查询语句是正确了！
我想把 查询出来的结果添加到一个新表中  adoquery3 连接的是 aa表  adoquery4:连接的是bb表  hsjb1 为新表  四个字段
  f_biao.adoquery2.ConnectionString:=srcstr3;//连接cc表 
  f_biao.adoquery4.ConnectionString:=srcstr2; 
  f_biao.adoquery3.Close;
  f_biao.adoquery3.SQL.Clear;
  f_biao.adoquery3.ConnectionString:=srcstr1;
  f_biao.adoquery3.SQL.Add('select yczmc,yxhd,hs from aa,bb,cc where hs>0.2 and aa.jh=bb.jh and bb.k=cc.xuhao and aa.yczmc=cc.cenghao');
  f_biao.adoquery3.Open;
  f_biao.adoquery3.First;
  while f_biao.ADOQuery3.eof do
  begin
    jh:=trim(f_biao.adoquery4.fieldbyname(f_biao.jhcombo4.Text).AsString);
    yczmc:=trim(f_biao.adoquery3.fieldbyname(f_biao.yczmccombo3.Text).AsString);//组合筐中yczmc 的值 
    hs:=f_biao.adoquery4.fieldbyname(f_biao.hscombo4.Text).AsFloat;//hs的值 
    yxhd:=f_biao.adoquery3.fieldbyname(f_biao.yxhdcombo3.Text).AsFloat;//yxhd的值
    adoquerytemp.Close;
      sqlstr:='insert into hsjb1 values('''+jh+''','''+yczmc+''','+floattostr(yx)+','+floattostr(hs)+')';                 //添加值
      adoquerytemp.SQL.Clear;
      adoquerytemp.SQL.Add(sqlstr);
      adoquerytemp.ExecSQL;
      f_biao.adoquery3.Next;
end;
各各表中的值 我都添加到组合筐中了就是我要 是这样添加 得到的  yczmc,yxhd的值是正确的 ,但jh,hs的值是错误的!!就是查询出来是正确的象我这样往新表中添加jh, hs 就不对了就是要把查询出来的结果添加到  hsjb1表中