VFP 愛用者社區

[whh]

SELECT recno(), 姓名, 電話 ;
FROM MyData ;
ORDER BY 生日 ;
INTO CURSOR CUR_AAA

SELECT AAA
COPY TO C:\CUR_AAA SDF

問題來了如果加了 ORDER BY 生日

recno()的號碼會亂掉
******************************
如果是Oracle的話可以在包一層

SELECT recno(), 姓名, 電話
FROM (
SELECT 姓名, 電話
FROM MyData
ORDER BY 生日)

1. 這樣順序就對了 請問vfp 6要如何做到(測試過在包一層，好像不支援) ?
2. 我如果轉出txt擋，要留欄位抬頭有辦法嗎?

[bx1166]

可以加一個欄位紀錄原來的 recno()
COPY TO TXT 要加入欄位抬頭
我想到的, 只能用 set printer to txtfile 的方法
例如:
set printer to Your_txt.txt
set cons off
set print on
? "Add fiield list here:Name Birthday..."
sele 1
use xxx
go top
do while .not. eof()
? Field_Name+","+Fiel_Birthday+","+Other_Field
sele 1
skip
enddo
?
set print off
set cons on
set print off
retu

[h02022]

SELECT 姓名, 電話 ;
FROM MyData ;
ORDER BY 生日 ;
INTO CURSOR CUR_AAA1

SELECT recno(), 姓名, 電話 ;
FROM CUR_AAA1 ;
INTO CURSOR CUR_AAA2

********************簡化********************
SELECT recno(), BB.姓名, BB.電話 ;
FROM ;
(SELECT 姓名, 電話 ;
FROM MyData ;
ORDER BY 生日) BB ;
INTO CURSOR CUR_AAA
********************簡化********************
先排序..後算數字...recno()是按照原本MyData資料表順序排的
所以先ORDER BY在下recno()

[whh]

[ckp6250]

h02022的方法在VFP9上是可行的
不過，樓主提的是VFP6，手上沒有VFP6可試，就不知行不行了

[h02022]

哦...對耶
沒注意SORRY
vfp 6.0 剛測試 這個用↓
****************************
SELECT 姓名, 電話 ;
FROM MyData ;
ORDER BY 生日 ;
INTO CURSOR CUR_AAA1

SELECT recno(), 姓名, 電話 ;
FROM CUR_AAA1 ;
INTO CURSOR CUR_AAA2
****************************