关于setkey

Question

TblXPData.Open;
    TblXPData.First;
    while not TblXPData.Eof do
    begin
       tblSKTXP.Open;
       tblSKTXP.First;
       tblSKTXP.setKey;
       tblSKTXPSKTNO.AsString :=TblXPData.fieldByName('SKTNO').AsString;
       tblSKTXPSKTJLBH.AsInteger :=TblXPData.fieldByName('JLBH').AsInteger;
       if  not tblSKTXP.GotoKey then
       begin
        tblSKTXP.Append;
        tblSKTXPSKTNO.AsString :=TblXPData.fieldByName('SKTNO').AsString;
        tblSKTXPSKTJLBH.AsInteger :=TblXPData.fieldByNam('JLBH').AsInteger;
        tblSKTXPYXJE.AsCurrency :=TblXPData.fieldByName('XSJE').AsCurrency;
        tblSKTXP.Post;
       end ;
      TblXPData.Next;
我认为没有问题,怎么每次都可以重复选呢

Answer 1

              tblSKTXP.Open; 
              tblSKTXP.First; 
能不能放在循环外