想更新整个表,为什么只更新了第一条??

Question

qryTmp.DatabaseName := Database1.DatabaseName;
  qryTmp.SQL.Clear;
  qryTmp.SQL.Add('select SBID, NAME FROM ' + Edit3.text   );
  qryTmp.Open;  qryTmp.First;
  if  not qryTmp.EOF then
  begin      //开始更新
    name := qryTmp.FIelds[1].asstring;
    name := qryTmp.FIelds[1].asstring;
    PYM :=  GetPYM_1(name);   //获取拼音码
    qryUpdate.Close;
    qryUpdate.DatabaseName := Database1.DatabaseName;
    qryUpdate.SQL.Clear;
    qryUpdate.SQL.add('update ' +  Edit3.Text + ' SET PYM = "' + PYM + '" where  NAME="' +name + '"');
    showmessage(qryUpdate.SQL.Text);
    qryUpdate.ExecSQL;    qryTmp.Next;
  end;    //更新结束

Answer 1

while not qrytmp.eof do
begin
.....
end