append的問題 急

Question

with dm1,qemployeeinfo do
              begin
                 close;
                 sql.Clear;
                 sql.Add('select * from HR_EMPLOYEEINFO');
                 open;
                 if dm1.qemployeeinfo.RecordCount>0 then
                    begin
                    qemployeeinfo.First;
                    while not dm1.qemployeeinfo.Eof do
                        begin
                        qattendence.Append;
                        qattendence.FieldByName('DPTID').AsString:=qemployeeinfo.fieldbyname('DPTID').AsString;
                        qattendence.FieldByName('TEAM').AsString:=qemployeeinfo.fieldbyname('TEAM').AsString;
                        qattendence.FieldByName('EMPLYID').AsString:=qemployeeinfo.fieldbyname('EMPLYID').AsString;
                        qattendence.FieldByName('EMPLYNAME').AsString:=qemployeeinfo.fieldbyname('EMPLYNAME').AsString;
                        qattendence.FieldByName('INDATE').AsDateTime:=strtodatetime(dt3.Text);
                        qemployeeinfo.Next;
                        end;
                    end;
              end;為甚麼只有一條紀錄,
去掉qattendence.FieldByName('EMPLYID').AsString:=qemployeeinfo.fieldbyname('EMPLYID').AsString;這一行後,就有多行紀錄了,這是甚麼問題啊,如何解決啊
還請指教,急

Answer 1

qemployeeinfo.Next;
qattendence.Post;qattendence.FieldByName('EMPLYID').AsString:=qemployeeinfo.fieldbyname('EMPLYID').AsString字段EMPLYID是不是不是String类型，？ 如果是数字类型应用AsInteger

Answer 2

把"qattendence.Append;"语句应该放在循环外面;

Answer 3

qemployeeinfo.Next;
qattendence.Post;