VFP 愛用者社區

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

請問各先進:
如何亂數取出n筆資料

Ruey · 發表於: 星期一三月 01, 2004 12:57 pm 文章主題:

何謂亂數取出n筆資料.說明一下!!

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

例如：
資料表格中有１０００筆記錄．．．
使用亂數只取出其中的５０筆記錄

garfield · 發表於: 星期一三月 01, 2004 5:14 pm 文章主題:

select * from mysource where 0=1 into table randfile &&--產生空的亂數暫存檔
rand( second() ) &&--加second() 是為了不要每次執行時都取到同一個亂數.
for i=1 to 50
select mysource
go int( rand( )* recc() )+1
scat to mytempdata MEMO
select rndfile
appe blank
gath from mytempdata MEMO
next

syntech · 發表於: 星期一三月 01, 2004 5:48 pm 文章主題:

garfield · 發表於: 星期一三月 01, 2004 6:35 pm 文章主題:

因為即興寫的程式, 也沒有測試, 加了一行修正了一行, 但還是沒有測試, 理論上是可行的.

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

我愛您們．．謝謝指教

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

再請問先進們:
程式執行無誤...
但是記錄內的通用型態(儲存圖片)欄位...into table randfile後無法顯示(空白)
再請賜教..謝謝