VFP 愛用者社區

Austin · 發表於: 星期五六月 03, 2005 2:56 am 文章主題:

Dear TigerLee, 我猜想我可能會錯您的意思, 但為互相學習...

如果是做檔案整理(如Pack,Reindex...)而需要EXCLUSIVE,
似乎宜先關閉資料表或資料庫, 再逐一以EXCLUSIVE處理,
CLOSE TABLES ALL
CLOSE DATABASES ALL
USE DatabaseName!TableName EXCLUSIVE
PACK
USE

如果是單純關閉一個Table, 再加開啟另一個Table, 或許可用,
** oldALIAS=SELECT(0)
IF USED("TabletToClose")
USE IN TableToClose
ENDIF && 如果已開啟, 則關閉它
IF .NOT. USED("TabletToOpen")
SELECT 0
* USE TabletToOpen
USE TableToOpen EXCLUSIVE
** To do what you want
ENDIF && 如果尚未開啟, 則開啟它
** SELECT (oldALIAS) && 如果要返回原先的工作區

希望能提供一點幫助.

---------
Austin

garfield · 發表於: 星期六六月 04, 2005 10:22 am 文章主題:

這是你要的嗎? , 抓取目前所有開啟的table

DIMENSION aTablesUsed[1]
m.nTablesUsed = AUSED(aTablesUsed)

* Can wrap everything in transaction if using strictly DBCs

FOR i = 1 TO m.nTablesUsed

SELECT (aTablesUsed[m.i,1])

*? aTablesUsed[m.i,1], IIF(CURSORGETPROP("Buffering")>1,GetFldState(0),'NO GETFLDSTATE'),ALIAS(),RECNO(),'/',RECC(),DELE()

next

*************
還是在form.load的這個
this.AddObject('autoopendata',"DataEnvironment")
with this.autoopendata
mdbf='我要開的table'
mdbc='table屬於那個dbc'
.AddObject('_'+mdbf,"Cursor")
with ._&mdbf
IF !EMPTY(mdbc)
.database=mdbc
endif
.cursorSource=mdbf
.alias=mdbf
.bufferModeOverride = 5
.order = 0
.Filter = ''
.NodataOnload = .T. &&--內定是LOCALVIEW, 而不會先抓出資料
*.Exclusive = .T.
endwith

.OpenTables

endwith