CArchive, bad index?!

 

I have derived from CXTTreeCtrl and COleDropTarget. Then I registered a clipboard format in my report control and catch it in CMyTreeCtrl::OnDrop. Dragging ONE row from the report control succeeds, but when dragging multiple rows, the second one causes an exception at the call to PX_Object (CArchiveException::badIndex).

 

What am I doing wrong?

 

BOOL CMyTreeCtrl::OnDrop(CWnd* pWnd, COleDataObject* pDataObject, DROPEFFECT dropEffect, CPoint point)
{
 if (!pDataObject->IsDataAvailable(m_cfFormat))
  return FALSE;
 
 CFile* pFile = pDataObject->GetFileData(m_cfFormat);
 if (!pFile)
  return FALSE;

 CXTPReportRecords arRecords;
 CArchive ar(pFile, CArchive::load);
 
 try
 {
  CXTPPropExchangeArchive px(ar);
 
  CXTPPropExchangeSection secRecords(px.GetSection(_T("ReportRecords")));
  
  long nSchema = 0;
  
  PX_Long(&px, _T("Version"), (long&)nSchema);
  px.ExchangeLocale();
  
  CXTPPropExchangeEnumeratorPtr pEnumRecords(secRecords->GetEnumerator(_T("Record")));
  POSITION posRecord = pEnumRecords->GetPosition();

  while (posRecord)
  {
   CXTPPropExchangeSection secRecord(pEnumRecords->GetNext(posRecord));
   
   CXTPReportRecord* pRecord = NULL;
   PX_Object(&secRecord, pRecord, RUNTIME_CLASS(CXTPReportRecord));
   
   if (!pRecord)
    AfxThrowArchiveException(CArchiveException::badClass);
   
   CMyIndexRecordItem *pItem = DYNAMIC_DOWNCAST(CMyIndexRecordItem, pRecord->GetItem(1));
   if (pItem)
    InsertItem(pItem->GetValue());

   CMDTARGET_RELEASE(pRecord);
  }
 }
 catch (CArchiveException* pE)
 {
  pE->Delete();
 }
 catch (CFileException* pE)
 {
  pE->Delete();
 }
 catch (...)
 {
 }
 
 ar.Close();
 delete pFile;
 
 return TRUE;
}