 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
shyhpyng
註冊時間: 2006-10-11
文章: 60
來自: 台南市
第 1 樓
|
 發表於: 星期四 七月 26, 2007 2:53 pm 文章主題: 有沒有類似Set Filter to的命令,但是可以設一個以上條件的呢?? |
 |
|
Set Filter to一次都只能設定一個欄位的條件,我想請教各位大大,有沒有什麼指令可以在我Set Filter to 第一個條件(A欄位等於01)後,然後在重這些條件再繼續設定第二個條件(B欄位等於02),也就是說我要先找出A欄位為01的資料,然後再找出B欄位等於02,甚至C欄位等於03等等,有這種指令嗎??
我天真的設定 Set Filter to A=01 & B=02 果然....語法錯誤,然後我要是先下
Set Filter to A=01 然後再下Set Filter to B=02 造成的結果,就是....老手大概笑出來.....(我現在才知道他都以最後一個為準),感謝各位! |
|
| 回頂端 |
|
 |
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 2 樓
|
| 發表於: 星期四 七月 26, 2007 3:27 pm 文章主題: |
|
|
只是依據你的敘述而設的
Set Filter to A=01 AND B=02
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ
朱育興 在 星期四 七月 26, 2007 3:32 pm 作了第 1 次修改 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期四 七月 26, 2007 3:28 pm 文章主題: |
|
|
"Set Filter to A=01 & B=02 "
應該也是語法錯誤啦,
因為正常人下
| 代碼: |
Set Filter to (A=01 and B=02) or c=04
|
或是
| 代碼: |
store "(A=01 and B=02) or c=04 " to cfilter
set filter to &filter
|
他X的,你連 FOXPRO 的語法都搞不清楚呀!! XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
shyhpyng
註冊時間: 2006-10-11
文章: 60
來自: 台南市
第 4 樓
|
| 發表於: 星期四 七月 26, 2007 4:20 pm 文章主題: |
|
|
啊.....我.....我........(羞愧到說不出話來)... 怎麼會想要用 & 去代替AND勒......
感激前輩的指導,謝謝!! |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期四 七月 26, 2007 4:55 pm 文章主題: |
|
|
應該是 "轉角卡到陰" 吧.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
amd
註冊時間: 2003-07-20
文章: 54
第 6 樓
|
| 發表於: 星期四 七月 26, 2007 5:59 pm 文章主題: |
|
|
做一個 程序 setfilter
=================================
For nCnt = 1 TO Thisform.ControlCount
If Thisform.Controls(nCnt).BaseClass = "Textbox" OR Thisform.Controls(nCnt).BaseClass = "Combobox"
If !EMPTY(Thisform.Controls(nCnt).Value) && 表該控制項有輸入資料
cCondition = "["+ ALLTRIM(Thisform.Controls(nCnt).Value) + "] $ "+SUBSTR(Thisform.Controls(nCnt).name,4)
If EMPTY(cFilter) && 表該控制項為第一個有輸入資料
cFilter = cCondition
Else
cFilter = cFilter + " AND " + cCondition
Endif
Endif
Endif
Endfor
=======================
搜尋按鈕 click
==================
Local oldRecord,nb
Select xx 資料
oldRecord = RECNO() && 將記錄編號儲存
lcmsg = "搜 尋 資 料 中，請 稍 待！"
Wait window lcmsg noclear nowait at srow()/2,(scols()-len(lcmsg))/2
cFilter = ""
cCondition = ""
Thisform.setfilter() && 呼叫 setfilter() 自訂方法
Set FILTER TO &cFilter && 開始過濾條件
Count to nb
Wait clear
=MESSAGEBOX(" 共 找 到 "+ str(nb) + space(10)+" 筆 資 料！", 64, "搜 尋")
Go TOP
If NOT EOF() && 表找到一筆或一筆以上
Skip
If EOF() && 表只找到一筆
Skip -1
Thisform.Refresh() && 更新主表單畫面
Else && 有多筆資料符合
Skip -1
Do FORM xx 資料搜尋瀏覽
If LASTKEY() = 27 && 表按下 ESC 鍵
=MESSAGEBOX(" 放 棄 搜 尋 ！", 16, "搜 尋")
Set FILTER TO && 停止過濾條件
Go oldRecord && 回到原記錄
Endif
Endif
Else
=MESSAGEBOX(" 找 不 到 指 定 的 資 料！",16, "搜 尋")
Set FILTER TO && 停止過濾條件
Go oldRecord && 回到原記錄
Thisform.txC_name.SetFocus() && 將焦點移至 txtC_name 物件上
Wait clear
Return
Endif
Thisform.Release() && 關閉本表單
============================== |
|
| 回頂端 |
|
|
liangszpt
註冊時間: 2004-11-18
文章: 263
來自: 广东省深圳市
第 7 樓
|
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
