VFP 愛用者社區

[芝風]

很謝謝之前各位前輩的大力相助

現在改了一些東西，是跨表單的

是這樣的：

一張表是記錄人員資料，另一張表是記錄人員的借貸東西資料

張三，男，二十五戲，未婚 張三，鉛筆一隻

現在想要在刪除人員資料的時候，順帶刪除人員的借貸資料

作了以下程式：

DELETE * from stuff_in_used where stuff_in_used.User== thisform.pageframe1.page1.txtName_of_user.Value


DELETE

=TABLEUPDATE(.t.)

stuff_in_used就是記錄人員借貸資料的表

現在當我執行時，他會先出現一個視窗，問我要開哪張表，選擇stuff_in_used之後，他卻把「不是」張三的資料全都mark起來

我曾經在之前加過use stuff_in_used 但是因為我在最早的一開始就open database，所以他出現file in use

不知道怎麼回事，求大大幫忙


另一個問題是，我不是查詢別的表單，而是本身的表單
就是formA 源自表user_data

現在我設一個查詢，當輸入名字時，grid會自動指向這個名字

我新設了一個text1，在text1.activechange()中寫：

SELECT * FROM user_data WHERE user_data.Name_of_user==thisform.text1.value


thisform.GrdUser_data.refresh

可是當我輸入字的時候，他卻跑出一張table，而不會在grid中指向我要的那筆資料

不知道該如何解決，求幫



還有另一個小問題，請問各位大大如何執行刪除動作？
DELETE

=TABLEUPDATE(.t.)

這樣只能把資料mark起來，而無法刪除

我有聽說要執行pack database的動作，可是不知道各位大大是在哪執行？？

謝謝

[liangszpt]

[芝風]

[芝風]

求幫一下，拜託！

[liangszpt]

1，這…如果sql找不到這人的資料，是空集合，那不就也沒辦法刪了嗎？

对空集合，当然也有办法
Select * from myTable where Exp1 = Exp2 into cursor tmpTable
可以用Eof('tmpTable')去判断，如果为真值，就代表是空集了。


2 那另一個問題就是我有兩欄，人員名跟ID，現在我另做一個optiongroup，來讓使用者決定是用哪個來搜尋

但是我不知道如何來判斷使用者是選擇option1或是2？？

thisform.optiongroup.value会告诉你，使用者是选择了那一个OPTION

那最後在quit的時候，要怎麼寫？？

3 close database
pack database

先pack再Close，只是PACK命令要求TABLE是以EXCLUSIVE，上面我有给你提到过，怎么去设。

[芝風]