VFP 愛用者社區

芝風 · 註冊時間: 2006-08-09 文章: 45 來自: 台灣，巴西 第 1 樓

首先謝謝朱大翻譯文件，有些東西雖然看得懂英文，但是他要講什麼，仍是迷迷糊糊的，翻成中文，比較容易抓得到原意

是這樣的，我看說明文件，filter的例子是這樣：

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer && Opens Customer table
SET TALK ON
SET FILTER TO SUBSTR(cust_id,1) = 'B'

CLEAR
? FILTER( ) && Display filter expression
STORE FILTER('customer') TO gcOldFilter && Save filter expression
SET FILTER TO country = 'USA'
? FILTER( ) && Display filter expression
SET FILTER TO &gcOldFilter && Restore filter expression
? FILTER( ) && Display filter expression

LIST FIELDS cust_id, contact && Demonstrate filter condition

我不知道哪些是必需的，哪些是說明的？？

像那個set talk on是必需的嗎？試過填上，結果不能執行

所以上來請大家幫忙

SELECT name_of_product,code_of_product,amount_of_product_used from stuff_in_used where stuff_in_used.user == thisform.pageframe1.page1.txtName_of_user.value into CURSOR dodo

thisform.pageframe1.page2.Grid1.RecordSource = "dodo"

thisform.pageframe1.page2.refresh

如何把上面的sql查詢換成filter模式？

而且查詢完的資料要寫在pageframe1.page2.Grid1中？？

萬分感謝

朱育興 · 發表於: 星期四八月 31, 2006 10:37 pm 文章主題:

我的習慣會這樣做

* 我的習慣會將控制項的值存入一個變數中，再以該變數來做後續處理
M_cUserName = LTRIM(ThisForm.pageframe1.page1.txtName_of_user.value)

* 因為下面會更換 dodo 的內容，所以先將 Grid1 的資料來源的連結取消，這樣才不會破壞在 Grid1 的相關配置
ThisForm.pageframe1.page2.Grid1.RecordSource = ""

SELECT A.name_of_product, A.code_of_product, A.amount_of_product_used FROM stuff_in_used A where A.user == PADR(M_cUserName,LEN(A.user)) INTO CURSOR dodo

ThisForm.pageframe1.page2.Grid1.RecordSource = "dodo"

ThisForm.pageframe1.page2.refresh

該 SQL 有何不好而想採用 SET FILTER TO？

liangszpt · 發表於: 星期五九月 01, 2006 1:55 am 文章主題:

使用SET FILTER TO 时要注意一点。如果你TO 后面的表达里面，有变量的话（局部的，LOCAL），当你对一些控件（和这个TABLE的数有关的），例如GRID、LISTBOX等，做REFRESH，REQUERY等动作时，就会报错，说该变量找不到，解决的办法可以增加一个FORM的Property，然后把该变量的值赋给PROPERTY，把这个PROPERTY写在 SET FILTER TO 的算式后面，就不会有这个问题了。例如
lcID = '12345'
THISFORM.NewProperty = lcID
SELECT MYTABLE
SET FILTER TO ID = THISFORM.NewProperty
THISFORM.MYGRID.Refresh

嫌麻烦的话，可以这样
LOCAL lcFilter
lcFilter = "SET FILTER TO ID ='" + lcID +"'"
SELECT MYTABLE
&lcFilter

也可以避免这个问题，如果对于在网路上抓数，或者条件过于复杂，记录数多的话，最好用SQL语句，SET FILTER很耗时的。

garfield · 發表於: 星期五九月 01, 2006 2:32 am 文章主題:

你真內行 !!
解釋的真透徹.

芝風 · 發表於: 星期五九月 01, 2006 4:20 am 文章主題:

nelsonchuang · 註冊時間: 2003-09-04 文章: 563 來自: 臺灣 第 6 樓

老實說,我覺得你用filter沒什麼不好,主要原因在於你是新手,
如果你是老手,那我也建議你儘量不要用filter!
因為在visual foxpro中有很多的功能你在使用中,有可能有前因及後果的關係,
以致於你必須使用某種寫法或是某種函式.這都是可以理解的.
你在還沒使用filter,就採行了它不是很好用...所以,以後都不用,那也有可能
你會錯過一般程式設計師可能會有的經驗...
用filter也不錯啊,如果你的記錄數不是很多,可能幾百筆,或近千筆,那也很好用,
上萬筆,百萬百就別用了,會很辛苦!但是建議你還是試試才知道是什麼情況!不一定好用,也不一定不好用,只是用在什麼時候而已!

芝風 · 註冊時間: 2006-08-09 文章: 45 來自: 台灣，巴西 第 7 樓

朱育興 · 註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區 第 8 樓

syntech · 發表於: 星期五九月 01, 2006 1:47 pm 文章主題:

HELP 中的範例通常是給你在 PRG 或是命令視窗中直接執行的範例.

不過,HELP 忽略了不是所有人都受過 XBASE 語言的訓練.
所以HELP 中沒有傳統語法的說明.

這點要補救的話,可以去找 DBASE III 或是 CLIPPER 的書來看.
但是 FOXPRO 的命令"不完全"與DBASE III 或是 CLIPPER的命令的運作方式一樣.
要注意!
還是要以HELP為準.

如果你不容易理解命令的作用,
可以使用命令視窗.

先USE TABLE
USE TBL1.TABLE

開啟BROWSE視窗
BROWSE

打
SET FILTER TO [FIELDNAME] = [SOMEVALUE]

然後再 BROWSE 一次 ,看看變化.

syntech · 發表於: 星期五九月 01, 2006 1:52 pm 文章主題:

就算中文版(VFP3~VFP6)的HELP 也是不翻指令說明的.

這點大家都是平等的.

liangszpt · 發表於: 星期五九月 01, 2006 2:30 pm 文章主題:

的确初学者，用一下SET FILTER TO 这命令是好的，简单易懂一些，慢慢你就发现它方便之余会带给你什么问题，然后再试SQL来，取平衡点就是了。
注意用完SET FILTER TO 之后，在退出不用时，要恢复TABLE原来的样子，不然你做一些查询的时候，你会发现好像少了一些记录，就是因为没回恢复原来的TABLE，所以朱兄才要你在用这前，记下现在TABLE的FILTER
STORE FILTER('customer') TO gcOldFilter
.......
SET FILTER TO &gcOldFilter

芝風 · 註冊時間: 2006-08-09 文章: 45 來自: 台灣，巴西 第 12 樓

朱育興 · 發表於: 星期六九月 02, 2006 1:13 am 文章主題:

芝風 · 發表於: 星期六九月 02, 2006 2:39 am 文章主題:

喔，原來如此！！

萬分感謝！！

那alias不是buffer？？