ÏÈллÄú£¡ÎÒÕâ¾ÍÈ¥ÊÔÊÔ£¡ VB code: Dim a() As Long, b As Long ReDim a(1 To 2, 1 To 20) 'Èç¹ûÔÏȶ¨Òå¹ý b = 30 ReDim Preserve a(1 To 2, 1 To b) 'ÓÃPreserve¿ÉʹÊý×éÊý¾Ý²»±»¶ªÊ§
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ. sqltext="select top A * from log where id not in(select top ( ......