Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
VB code: Private Sub Command4_Click() Dim TempFile As Long Dim LoadBytes() As Byte Dim txtPath As String TempFile = FreeFile txtPath = c: Open txtPath \ domain.txt For Binary ......