关于“删除操作”的问题

Question

procedure TContractForm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
var
  i:integer;
begin
  case button of
    ......    nbDelete:
    begin
      for i:=0 to ChoicedHouseCode.Items.Count-1 do
      begin
        with DataContrls.HTable do
        begin
          Locate('房屋号',ChoicedHouseCode.Items[i],[]);
          Edit;
          FieldByName('状态').AsString:='';
          FieldByName('合同号').AsString:='';
          Post;
        end;
      end;
      ......
    end;
  end; 
end;当执行这项操作时，它会跳出一个“Debugger Exception Notification”,具体内容是：“Project HouseManager.exe raised exception class EDatabaseError with message'HTable:Cannot perform this operation on a closed dataset'.Process stopped.Use Step or Run to continue.”是不是说数据集没有打开，应该怎么打开？
还是有其他的错误？
谢谢

Answer 1

with DataContrls.HTable do
        begin
          //在这里加一句;
          if not active then open;  
          Locate('房屋号',ChoicedHouseCode.Items[i],[]);
          Edit;
          FieldByName('状态').AsString:='';
          FieldByName('合同号').AsString:='';
          Post;
        end;