VFP 愛用者社區

朱育興 · 發表於: 星期五三月 26, 2004 4:30 pm 文章主題:

看樣子你一定有在別處開啟你要刪除的檔案，你可能沒有養成「隨手關燈」的習慣。

你在 Command2 下 USE 是比較賴皮的作法(你能不能在 USE 的上一行以 WAIT WIND ALIAS() 查看 USE 了誰)，既然你設了這個刪除按鈕，就我的觀點，它要刪除的檔案應該都已經關閉了(這就是我在 Command1 中)。

朱育興 · 發表於: 星期五三月 26, 2004 10:49 pm 文章主題:

TO hou59：

以下只是個人對使用 Table or Cursor 的觀點：

就我的觀念上，它們一樣跟變數有所謂的 PRIVATE、LOCAL 類似的觀念。

當以 USE ... 或 SELECT ... FROM ... INTO ... 開啟資料表格時，除非你下了關閉資料表格的相關指令，否則它就同 PUBLIC 變數般一直存活下去直到程式整個結束；這時你須思考這些被開啟的資料表格，到底要讓它們活多久，什麼時候該關掉它。也就是該它們存活時就好好活下去，沒必要存活時就要讓它死得其所而不讓它茍活(我認為要養成隨手關燈的習慣)。

像你 Command1 裏的 op_sf，由你提供的資訊中，我判斷它應屬於 LOCAL，所以 SELECT * FROM TMP_Select INTO CURSOR s_tmp 後我就立刻把 TMP_Select 關掉，因為它沒有存活的必要。

有一點要注意，你是否在其他地方有 USE (op_sf) 後，在離開該段程式碼時沒有順手將它關掉(就是不讓它茍活，除非你還要留著它繼續使用)；你是否在其他地方有 SELECT ... FROM (op_sf) INTO ...，使用這個命令時，op_sf 所代表的 Table 不管你事先是否有開啟過，該命令執行後，op_sf 所代表的 Table 也同時會被開啟而不會被關閉，一直要等你對它下了關閉資料表格的相關指令才會關掉(這就是我認為你在 Command2 用 USE 的方式是一種賴皮(只是碰巧讓你碰對了)的作法)。

至於你的 filelist.dbf，我判斷它應屬於 PRIVATE (也可能是 PUBLIC)，這時它不光只是要存活，還得是要好好活下去；會這樣說是針對 Command2 中的動作而來。你既然刪除了實體資料檔案，在同一時間下，filelist.dbf 中的該筆歷史檔的記錄你要如何對待它(因為此時你已用 Command2 將該實體資料檔案幹掉了)；既然幹掉了，filelist.dbf 中的記錄就已不是真實的資料(這時它活的很亂)，好好讓它活吧！

Ruey · 發表於: 星期六三月 27, 2004 12:55 am 文章主題:

1.試著將 SET TALK OFF 放置在程式一開始區
如prg,或是Form.Load

2.我以前也常忘記關燈.不過現在學乖了.
要知道不關燈.可很號記憶體的喔!!
Win98記憶體管理很差,可是給你當機

hou59 · 註冊時間: 2004-02-17 文章: 20 第 19 樓

謝謝朱兄的解答,有一些觀念我尚需加強與明白..
感謝Ruey兄熱心回覆,首先回答下列問題

hou59 · 註冊時間: 2004-02-17 文章: 20 第 20 樓

報告:
首先感謝各位的指導,針對本項主題報告心得
最後的結果我是將每次產生的資料合併在一個資料表裡面,不使用一個一個存於.dbf檔的方式,因為刪掉某.dbf檔後，再次依條件顯示時，grid的gen欄總是變成一片空白,試了好久就是沒辦法

後來我使用下列方式，顯示於grid內
SELECT xxx
FROM xx
INTO Cursor history_tmp &&依條件將資料into cursor
scan all
insert into h_tmp(.....) values(.....)
endscan &&將cursor資料再轉置於資料表h_tmp
因為into cursor後的資料顯示於grid內的話，第一次執行時ｏｋ
但是再執行時grid內的gen欄就顯示成”ｇｅｎ”,無法顯示圖片
所以我將grid的recordsuorce設為h_tmp這樣就ｏｋ了
致於刪除方面：
oldrs_filelist= ThisForm.Grid_filelist.RecordSource
ThisForm.Grid_filelist.RecordSource=""
delete FROM ｘｘｘ;
where filelist.檔名=ThisForm.Grid_filelist.Column1.Text1.text
pack
ThisForm.Grid_filelist.RecordSource=oldrs_filelist
這樣刪除後grid就不會一片空白了.
謝謝各位的指導,如果說不明白的話請留言