accessËæ»úѡȡʮÌõ²»Í¬¼Ç¼µÄÎÊÌâ
Õâ¶Î´úÂëÎÒ¾õµÃºÜºÃÓ㬽â¾öÁËaccessËæ¼´Ñ¡È¡nÌõ¼Ç¼µÄÎÊÌâ
µ«ÊÇÓиöÎÊÌ⣬Èç¹ûÊý¾Ý¿âÀïÃæÑ¡³öÀ´µÄ¼Ç¼×ÜÊý£¬Ð¡ÓÚÒªÏÔʾÊý ÈçItem=10
¾Í»á³¬Ê±
ÐèÒª¼Ó¸öÌõ¼þ£¬¾ÍÊÇÈç¹ûÊý¾Ý¿âѡȡ³öÀ´µÄ¼Ç¼×ÜÊý СÓÚ ÒªÇóÏÔʾ¼Ç¼Êý
ÄÇô¾ÍÒÔѡȡ³öÀ´µÄ×ÜÊýÏÔʾ...
°ÝÍÐÁË£¬ÎÒʵÔÚ²»Çå³þ¼ÓÔÚÄÄ
'Ö´ÐмìË÷
Count=rs.RecordCount
'µÃµ½¼Ç¼×ÜÊý
Item=10
'ÏÔʾ¼Ç¼Êý
redim a(Item, 2),t(Count)
'¶¨Òå2Êý×飬Êý×éaÓÃÀ´´¢´æ¼Ç¼£¬Êý×étÓÃÀ´É¾Ñ¡¼Ç¼
'³õʼÊý×éÊýÖµ£¬Ä¿µÄΪÁ˲åÈëÊý¾ÝÒÔºóºÍ´ËÖµ×ö±È½Ï
for each j in t
j=0
next
' Ëæ»ú³éÈ¡¼Ç¼ºÅ
Randomize timer '³õʼ»¯Ëæ»úÊýÉú³ÉÆ÷
for j=1 to Item
k=int(rnd*Count+1) '´Ó×ÜÊýÀïÃæËæ»úȡһÌõ¼Ç¼
do while t(k) <>0 'ÅжÏÊÇ·ñ¼Ç¼ÊÇ·ñÒѾÔÚÊý×éÖÐ
k=int(rnd*Item+1)
loop
t(k)=1 'µÚkÌõ¼Ç¼±»Ñ¡ÖÐ
next
'-------------------------------------- <
Ïà¹ØÎÊ´ð£º
accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......
ÎÒÓÃÁËÒ»°ãµÄ²éѯÓï¾ä³öÀ´,,,ÍÛºÃÂý°¡................
ʹÓÃ×é¼þ
DBgrid ADOQuery DATASOurce
¿ì²»ÁË£¬Ö»Äܾ¡¿ÉÄܵÄÓÅ»¯°É
ÓÅ»¯Êý¾Ý½á¹¹£¬½¨Ë÷Òý£¬²»¹ý½¨Òé²»ÒªÒ»´Î¶Á³öËùÓ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......