|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
jeff2004
µù¥U®É¶¡: 2005-10-30 ¤å³¹: 27
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤¤ë 14, 2006 11:44 pm ¤å³¹¥DÃD: ½Ð±Ð¤@Ó¤p°ÝÃD |
|
|
²{¦b§Ú·Q¦C¥X¦UŪªÌ©Òɪº¹Ï®Ñ®Ñ¦W²M³æ, ¿é¥X¸ê°T®æ¦¡¦p¤U:
ŪªÌ©m¦W ¡@´¿É¹Ï®Ñ
§õ´MÅw ¬õ¼Ó¹Ú, ¦è¹C°O, ¦Ñ´Ý¹C°O
§õ»§g ¥@»¡·s»y
¡K¡K¡K ¡K¡K¡K¡K¡K¡K
¡K¡K¡K ¡K¡K¡K¡K¡K¡K¡K..
¤èªk¬O:
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 ¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¬°¬Æ»ò°õ¦æ®É·|»¡³oÓ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
? "ŪªÌ©m¦W ¡@´¿É¹Ï®Ñ"
For I = 1 to RecCount( )
? RList(i), BookList(i)
Next i |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤¤ë 15, 2006 1:08 am ¤å³¹¥DÃD: |
|
|
DECLARE RList(100)
DECLARE BookList(100)
* IN 1, IN 2, IN 3 ¤@¯ë§Ú̳£¥Î IN 0¡A¥Ñ VFP ¦Û¤v¥h°t¡A¦Ó¥B±z³£¦³¨ú§O¦W¡A©Ò¦³ SELECT «á³£±µ±z¨úªº§O¦W
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 && ²Ä¤GÓ¥H«áªº INDEX ON n¥[¤W ADDI¡A§_«h±zªº rc2 ¯Á¤ÞÀ³¸Ó¬O·|¤£¨£§a(³o¥u¬O¾Ì¦L¶H»{¬°¦p¦¹¦Ó¤w)
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 ¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¬°¬Æ»ò°õ¦æ®É·|»¡³oÓrname§ä¤£¨ì?
BookList(i) = ""
SELECT RN ¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¡ö¦]¬°±z¦b³oùاâ SELECT ¥Ñ RD Âର RN¡A¨Ï±o FOR ¦b I = 2 ®É¡A¥¦·|»{¬° Rname ¬O RN ªºÄæ¦ì¡A©Ò¥H´N§ä¤£¨ì¡C°£¦¹¤§¥~¡A±zÀ³¸ÓÁÙ¦³¨ä¥L±z¦Û¤v°µªº³´¨ÀÅý±z¦Û¤v¸õ¶i¥h¡A§Ú´N¯dµ¹±z¦Û¤v¥h§ä¡AFOR ³o¬q»yªk¡A§Ú¬O¤£·|³o¼Ë¼gªº¡A¦Ó¥B¦b³oÓª¬ªp¤U¡A§Ú·|¥Î¨ä¥Lªº¦Ó¤£¥Î FOR
LOCATE FOR Rcode=RD.Rcode
DO WHILE NOT EOF()
BookList(i) = BookList(i) + BK.Bname
CONTINUE
ENDDO
SKIP
NEXT I
? "ŪªÌ©m¦W ¡@´¿É¹Ï®Ñ"
FOR I = 1 TO RECCOUNT( )
? RList(i), BookList(i)
NEXT I _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
jeff2004
µù¥U®É¶¡: 2005-10-30 ¤å³¹: 27
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤¤ë 15, 2006 6:59 am ¤å³¹¥DÃD: |
|
|
ÁÂÁ¼ӤWªº¦U¦ì,²×©ó§ó§ï¹L¤F
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
? "ŪªÌ©m¦W ´¿É¹Ï®Ñ"
For I = 1 to RecCount( )
? RList(i), BookList(i)
Next i |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|