VFP 愛用者社區

jeff2004 · 註冊時間: 2005-10-30 文章: 27 第 1 樓

現在我想列出各讀者所借的圖書書名清單, 輸出資訊格式如下:

讀者姓名　曾借圖書
李尋歡紅樓夢, 西遊記, 老殘遊記
李香君世說新語
……… ………………
……… …………………..

方法是:
DECLARE RList(100)
DECLARE BookList(100)

Use Reader in 1 Alias RD
Use Book in 2 Alias BK
Use Run in 3 Alias RN

SELECT 2
Index on bcode Tag bc1

SELECT 3
Index on rcode Tag rc2
Index on bcode Tag bc2
SET RELATION TO bcode INTO BK

SELECT 1
Index on rcode Tag rc1
SET RELATION TO rcode INTO RN

Go top
For I = 1 to RecCount( )
RList(i)=Rname ←←←←←←←←←←為甚麼執行時會說這個rname找不到?
BookList(i)=""
SELECT 3
Locate For Rcode=RD.Rcode
Do while not EOF()
BookList(i)= BookList(i)+BK.Bname
CONTINUE
ENDDO
skip
Next i

? "讀者姓名　曾借圖書"
For I = 1 to RecCount( )
? RList(i), BookList(i)
Next i

朱育興 · 發表於: 星期一五月 15, 2006 1:08 am 文章主題:

DECLARE RList(100)
DECLARE BookList(100)

* IN 1, IN 2, IN 3 一般我們都用 IN 0，由 VFP 自己去配，而且您都有取別名，所有 SELECT 後都接您取的別名
USE Reader IN 0 ALIAS RD
USE Book IN 0 ALIAS BK
USE Run IN 0 ALIAS RN

SELECT BK
INDEX ON bcode TAG bc1

SELECT RN
INDEX ON rcode TAG rc2
INDEX ON bcode TAG bc2 ADDI && 第二個以後的 INDEX ON 要加上 ADDI，否則您的 rc2 索引應該是會不見吧(這只是憑印象認為如此而已)
SET RELATION TO bcode INTO BK

SELECT RD
INDEX ON rcode TAG rc1
SET RELATION TO rcode INTO RN

GO TOP
FOR I = 1 TO RECCOUNT( )
RList(i) = Rname ←←←←←←←←←←為甚麼執行時會說這個rname找不到?
BookList(i) = ""
SELECT RN ←←←←←←←←←←因為您在這裏把 SELECT 由 RD 轉為 RN，使得 FOR 在 I = 2 時，它會認為 Rname 是 RN 的欄位，所以就找不到。除此之外，您應該還有其他您自己做的陷阱讓您自己跳進去，我就留給您自己去找，FOR 這段語法，我是不會這樣寫的，而且在這個狀況下，我會用其他的而不用 FOR
LOCATE FOR Rcode=RD.Rcode
DO WHILE NOT EOF()
BookList(i) = BookList(i) + BK.Bname
CONTINUE
ENDDO
SKIP
NEXT I

? "讀者姓名　曾借圖書"
FOR I = 1 TO RECCOUNT( )
? RList(i), BookList(i)
NEXT I

jeff2004 · 註冊時間: 2005-10-30 文章: 27 第 3 樓

謝謝樓上的各位,終於更改過了
DECLARE RList(100)
DECLARE BookList(100)

Use Reader in 1 Alias RD
Use Book in 2 Alias BK
Use Run in 3 Alias RN

SELECT 2
Index on bcode Tag bc1

SELECT 3
Index on rcode Tag rc2
Index on bcode Tag bc2
SET RELATION TO bcode INTO BK

SELECT 1
Index on rcode Tag rc1
SET RELATION TO rcode INTO RN

Go top
For I = 1 to RecCount( )
RList(i)=Rname
BookList(i)=""
SELECT 3
Locate For Rcode=RD.Rcode
Do while not EOF()
BookList(i)= BookList(i)+BK.Bname
CONTINUE
ENDDO
SELECT 1
skip
Next i
? "讀者姓名曾借圖書"
For I = 1 to RecCount( )
? RList(i), BookList(i)
Next i