REQUEST HB_MEMIO 
 REQUEST DBFCDX 
  
 PROCEDURE Main() 
  
    dbCreate( "mem:test", { { "pole", "N", 1, 0 }},,.T.,"tmp" ) 
    index on pole tag "test" 
    close tmp 
    dbDrop( "mem:test" ) 
  
    dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},,.T.,"tmp" ) 
    index on pole2 tag "test" 
    close tmp 
    dbDrop( "mem:test" ) 
    RETURN 
  
 

 
 REQUEST HB_MEMIO 
 REQUEST DBFCDX 
  
 PROCEDURE Main() 
  
    dbCreate( "mem:test", { { "pole", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole tag "test" 
    close tmp 
    dbDrop( "mem:test" ) 
  
    dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole2 tag "test" 
    close tmp 
    dbDrop( "mem:test" ) 
    RETURN 
  
 

dbCreate( "mem:test", { { "pole", "N", 1, 0 }},"HBMEMIO",.T.,"tmp" )

https://groups.google.com/forum/?fromgroups=#!topic/harbour-users/d8C6cXWbR-E

 
    dbCreate( "mem:test", { { "pole", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole tag test 
    orddestroy("test") 
    close tmp 
    dbDrop( "mem:test" ) 
  
    dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole2 tag test 
    orddestroy("test") 
    close tmp 
    dbDrop( "mem:test" ) 
  
 

 
 REQUEST DBFCDX 
 REQUEST HB_MEMIO 
 REQUEST ADS 
 rddSetDefault( "ADSCDX" ) 
 ..... и тд и тп 
  
 иду в определеный раздел своей проги и формирую ведомость. 
 открываю нужные базы с умалчиваемым RDD (ADSCDX) и создаю 
 временную базу в памяти для отчета. 
  
 dbCreate( "mem:test", { { "pole", "N", 1, 0 }},"DBFCDX",.T.,"tmp" )  
 index on pole tag test  
 ....... 
  
 создал отчет и якобы похоронил и временную базу и индекс к ней 
  
 close tmp  
 dbDrop( "mem:test" )  
  
 затем лезу в другой раздел проги и создаю совершенно другой отчет 
 и поля в базе будут другие и ключи в индексе тоже. 
 создаю с тем же MEM: именем полагая что по DBDROP("mem:test") ранее 
 я убил и базу и индекс. 
  
 dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" )  
 index on pole2 tag test // облом наступит тут с base error 1003 
  
 

 
    dbCreate( "mem:test", { { "pole", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole tag test 
    close tmp 
    dbDrop( "mem:test" ) 
  
    dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole2 tag test        // BASE/1003  Variable does not exist: POLE 
  
    close tmp 
    dbDrop( "mem:test" ) 
  
 

 
 Func Clearmemfile(_alias) 
 local cfile:=(_alias)->(dbinfo(DBI_FULLPATH)) 
 local cindeks:=(_alias)->(dbOrderInfo(DBOI_FULLPATH)) 
  
 (_alias)->(DbCloseArea()) 
 hb_dbdrop(cfile,cindeks) 
 return nil 
  
 

 
 REQUEST HB_MEMIO 
 REQUEST DBFCDX 
 REQUEST LETO 
 #include "dbinfo.ch" 
 PROCEDURE Main() 
 RDDSETDEFAULT( "LETO" ) 
  
    dbCreate( "mem:test", { { "pole", "N", 1, 0 },{ "pole22", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole tag test2 
    index on pole22 tag eeee 
  
 *Clearmemfile("tmp") 
 close tmp 
 dbdrop("mem:test") 
 Ferase("mem:test.cdx") // до лампочки 
  
    dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" ) 
    index on pole2 tag test // вот тут мы упадем ;) 
  
  
 *Clearmemfile("tmp")   
 close tmp 
 dbdrop("mem:test") 
    RETURN 
 ************* 
 Func Clearmemfile(_alias) 
 local cfile:=(_alias)->(dbinfo(DBI_FULLPATH)) 
 local cindeks:=(_alias)->(dbOrderInfo(DBOI_FULLPATH)) 
 (_alias)->(DbCloseArea()) 
 hb_dbdrop(cfile,cindeks) 
 return nil 
  
 

 
 FUNCTION TestMemIO() 
 LOCAL cRdd 
  
  cRdd := RddSetDefault() 
  RddSetDefault("LETO") 
  
  dbCreate( "mem:test", { { "pole", "N", 1, 0 },{ "pole22", "N", 1, 0 }},"DBFCDX",.T.,"tmp" )  
  index on pole tag test2  
  index on pole22 tag eeee  
 ? alias(),used(),cRdd,RddSetDefault() 
  
  close tmp  
  dbdrop("mem:test","mem:test","DBFCDX")  
    
     dbCreate( "mem:test", { { "pole2", "N", 1, 0 }},"DBFCDX",.T.,"tmp" )  
     index on pole2 tag test // вот тут мы упадем ;)  
  
  close tmp  
  dbdrop("mem:test","mem:test","DBFCDX")  
  
  RddSetDefault(cRdd) 
  
 RETURN 
 

#define  _HMG_OUTLOG       
 REQUEST DBFCDX, DBFFPT, HB_MEMIO 
 REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866, HB_CODEPAGE_UTF8 
 #include "hmg.ch" 
 /////////////////////////////////////////////////////////////////////////// 
 PROCEDURE MAIN 
    LOCAL cFile, cFile2, cMsg, tTime, nSize, nSize2 
  
    SET WINDOW MAIN OFF 
  
    cFile  := GetStartupFolder() + "\Abon2023.dbf" 
    cFile2 := "mem:" + cFileNoPath( cFile )  // create/open in memory via HB_MEMIO 
    tTime  := HB_DATETIME() 
    nSize  := hb_vfSize(cFile) / 1024 / 1024 
  
    hb_vfCopyFile( cFile, cFile2 )  
    nSize2 := hb_vfSize(cFile2) / 1024 / 1024 
    wApi_Sleep( 100 )     
  
    cMsg := 'Файл успешно скопирован !;;' 
    cMsg += cFile + ' - Размер файла: ' 
    cMsg += HB_NtoS(nSize)  + ' Мбайт; =======>>>>>> ;'  
    cMsg += cFile2 + ' - Размер файла: ' 
    cMsg += HB_NtoS(nSize2) + ' Мбайт;;'  
    cMsg += "Затрачено времени " + HMG_TimeMS( tTime ) 
    ? AtRepl( ";", cMsg, CRLF )  
    ? Repl("-._.",19) + Repl(CRLF,20) 
  
    HB_vfErase(cFile2)  // delete after use 
    wApi_Sleep( 100 )     
  
    cMsg := HB_MemoRead( _SetGetLogFile() ) 
    AlertInfo( cMsg, "Program operation log" ) 
  
 RETURN

Файл успешно скопирован ! 
 D:\TEMP\1Test\Abon2023.dbf - Размер файла: 321.66 Мбайт 
  =======>>>>>>  
 mem:Abon2023.dbf - Размер файла: 321.66 Мбайт 
 Затрачено времени 00:00:00.461    
 

D:\TEMP\1Test\Abon2023.dbf - Размер файла: 321.66 Мбайт 
  =======>>>>>>  
 mem:Abon2023.dbf - Размер файла: 321.66 Мбайт 
 =======>>>>>>  
 D:\TEMP\1Test\newAbon2023.dbf - Размер файла: 321.66 Мбайт 
 Затрачено времени 00:00:00.748