| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
liangszpt
註冊時間: 2004-11-18
文章: 263
來自: 广东省深圳市
第 1 樓
|
 發表於: 星期一 十一月 26, 2007 11:47 am 文章主題: USED()失效 |
 |
|
If Directory(ThisFormSet.Temp_Data_Path)
If DBUsed("ACCOUNT")
Set Database To ACCOUNT
Close Databases
EndIf
xTotCopy = ADir(aDataFile, ThisFormSet.Temp_Data_Path+"*.*")
For xCounter = 1 To xTotCopy
xFmfile = ThisFormSet.Temp_Data_Path +aDataFile[xCounter,1]
If Used(xFmfile)
Select (xFmfile)
Use
EndIf
Erase (xFmfile)
EndFor
EndIf
程式本来的意图就是删除在程式里建立的临时档(产生在硬碟上的)。在删除之前，先判断DBC和DBF有没有关闭，然后再删除。
可以我在运行的过程中，有一个DBF，用USED（）检查出来是没用使用的。但到我ERASE时，就出ERROR了，说文件在使用，不能删除。
不知各位有没有遇到过样的问题
_________________
我的理想是能成为古代的一位富家公子，
日常生活就是喝茶去怡香院，没事带着一班小打手在街上调戏良家妇女。 |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期一 十一月 26, 2007 2:31 pm 文章主題: |
|
|
1.確定沒有別的程式也會產生檔案在 TEMP_DATA_PATH 資料夾裡.
2.會不會因為有用ALIAS 跟實際的dbf檔名不一樣.
3.別的FORM所產生的(不一樣的 DATASESSION )
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
liangszpt
註冊時間: 2004-11-18
文章: 263
來自: 广东省深圳市
第 3 樓
|
| 發表於: 星期一 十一月 26, 2007 5:29 pm 文章主題: |
|
|
| garfield 寫到: | 1.確定沒有別的程式也會產生檔案在 TEMP_DATA_PATH 資料夾裡.
2.會不會因為有用ALIAS 跟實際的dbf檔名不一樣.
3.別的FORM所產生的(不一樣的 DATASESSION ) |
1、3可以排除。
第2点，的确要再细看看。有没有一些FUNCTION可以反查一个DBF被打开时是用什么ALIAS的？
例如用DBF（）可以查出一个ALIAS实际是硬碟是的那一个DBF。反过来查询的，有没有呢？
_________________
我的理想是能成为古代的一位富家公子，
日常生活就是喝茶去怡香院，没事带着一班小打手在街上调戏良家妇女。 |
|
| 回頂端 |
|
|
fschern
註冊時間: 2003-10-12
文章: 34
第 4 樓
|
| 發表於: 星期一 十一月 26, 2007 9:35 pm 文章主題: |
|
|
xFmfile = ThisFormSet.Temp_Data_Path +aDataFile[xCounter,1]
If Used(xFmfile) <==這一行指令有問題,承上一行,xfmfile包含了檔案路徑
Select (xFmfile)
Use
EndIf |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 5 樓
|
| 發表於: 星期二 十一月 27, 2007 12:14 am 文章主題: |
|
|
| fschern 寫到: | xFmfile = ThisFormSet.Temp_Data_Path +aDataFile[xCounter,1]
If Used(xFmfile) <==這一行指令有問題,承上一行,xfmfile包含了檔案路徑
Select (xFmfile)
Use
EndIf |
If Used(xFmfile) ---> If Used(JUSTSTEM(xFmfile))
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
liangszpt
註冊時間: 2004-11-18
文章: 263
來自: 广东省深圳市
第 6 樓
|
| 發表於: 星期二 十一月 27, 2007 11:08 am 文章主題: |
|
|
各位人兄，多谢大家的帮忙。我发现了最终的问题所在，但又有点可笑。
的确那个不能删除的DBF是没有被打开的。
我是用crystal reports来列印报表的，数据就是由程式产生在TEMP_DATA_PATH的DBF提供。
问题就是当CRYSTAL预览完后，并没有完全地RELEASE，所以那些DBF依然是被使用，但又因为不是VFP打开的，所以USED（）就侦测不出来，引起了不能删除的问题。
可笑的是RELEASE 是运行过的，但无用，要再RELEASE多一次。
_________________
我的理想是能成为古代的一位富家公子，
日常生活就是喝茶去怡香院，没事带着一班小打手在街上调戏良家妇女。 |
|
| 回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23
文章: 111
第 7 樓
|
| 發表於: 星期五 十二月 07, 2007 1:17 am 文章主題: |
|
|
可以Use並不代表可以Erase
可以Lock才可以Erase |
|
| 回頂端 |
|
|
saint
註冊時間: 2003-07-14
文章: 211
第 8 樓
|
| 發表於: 星期一 十二月 17, 2007 9:57 pm 文章主題: |
|
|
| 你如果 use 沒有下 Excl，自然可以 use ，但是不能刪除檔案.. |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
