请教数据操作问题

Question

代码如下：（其中DataSet指向一个已经打开的数据集）
    with TADOQuery(DataSet) do
    begin
      SqlText := FieldByName('DataField').AsString;
      flm := GetCurID(Node);
      Filter := 'DataField' + ' Like '+  QuotedStr('Type');
      First;
      try
        while not Eof do
        begin
          Delete;
          Next;
        end;
        UpdateBatch;
      except
      end;
      EnableControls;
    end;
    with FDataOperation.FDataLink.DataSet do
    begin
      DisableControls;
      Filter := DataField + ' <> ' + QuotedStr('');
      First;
      while not Eof do
      begin
　　　　CmbBox.Items.Add(FieldByName('DataField').AsString);
        Next;　　//在这里发生错误
      end;
      EnableControls;
    end;
//错误信息是：“行句柄引用了一个己被删除的行或被标识未删除的行”

Answer 1

try
        while not Eof do
        begin
          Delete;
          Next;//这个不多余吗？
        end;
        UpdateBatch;
      except
      end;
      EnableControls;
    end;

Answer 2

你可以用ShowMessage(FieldByName('DataField').AsString),看看还有没有值啊，嗬嗬，小问题啊

Answer 3

UpdateBatch;已经把数据更新到表了
我重新做循环读数据时应该不会出现这样的问题才对