|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 1 樓
|
發表於: 星期四 十一月 09, 2017 4:22 pm 文章主題: 【同分同名次示例】加碼演出 |
|
|
lygcw9603兄提出了【同分同名次示例】命題,引發了scan語法和sql語法,究竟是誰比較快?
我也來加碼插花一下,底下提供了實體資料dbf,大家來試一下,
不過,我增加了一項要求,【相同名次時,按中文筆劃排序由大到小倒著排】
下面是我的測試結果及語法!
代碼: |
Close Databases All
SET COLLATE TO "STROKE" && 排中文筆劃排序
nCj=0
nMc=1
nRec=1
t1=SECONDS()
SELECT Bh,Cj,GetMc() AS Mc ;
FROM (;
Select Bh,Cj,0000000 AS Mc From r:\tt Order By Cj DESC ,Bh DESC) a ;
INTO CURSOR Temp
? 'SQL',Transform(Reccount())+" 條記錄共運行:"+Transform(Seconds()-t1,"999.99")+" 秒"
Function getMc()
vRet = 0
If Cj!=nCj
nMc=nRec
Endif
vRet = nMc
nRec=nRec+1
nCj=Cj
nMc=vRet
Return MAX(vRet-1,0000001)
|
【DBF下載】
https://drive.google.com/file/d/1Id6SL-G0kO4EygIFZaPtOYjSjF7gr001/view?usp=sharing
站長有點小氣,僅限10M! |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 2 樓
|
發表於: 星期四 十一月 09, 2017 5:30 pm 文章主題: |
|
|
台灣的網站吧,打不開
兩段代碼放置在一台電腦上運行,才能比較出優劣。
測試一種方法後,退出VFP,再進入VFP,測試另一段代碼 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 3 樓
|
發表於: 星期四 十一月 09, 2017 10:32 pm 文章主題: |
|
|
lygcw9603 寫到: | 台灣的網站吧,打不開
兩段代碼放置在一台電腦上運行,才能比較出優劣。
測試一種方法後,退出VFP,再進入VFP,測試另一段代碼 |
這是基本常識,任一程式設計師都知道。 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 4 樓
|
發表於: 星期五 十一月 10, 2017 2:32 pm 文章主題: |
|
|
目前看起來似乎是執行環境的問題.
可能是 VFP 執行環境設定造成的問題.
可能是硬體環境的問題.
當然也可能其他因素造成. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|