ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f L=LOF(f) redim b(L-1) b=inputb(L,#f) close #f s=strconv(b,vbUnicode) ÉÏÃæµÄ¶Á³öµÄxmlÊǺÃÏñÊÇ·±Ìå×Ö ÏÖÔÚÖ»Ïë°ÑxmlÀïµÄÊý¾Ý¶ÁÈ¡³öÀ´£¬×é³ÉÒ»¸ö×Ö·û´®£¬²»¶ÁÈ¡xmlµÄ¸ñʽ£¬ÇëÎÊÔõôʵÏÖ°¡£¡ Èç¹ûÄãµÄxmlÊDZê×¼¸ñʽ£¬ÓÃϱߵķ½·¨¾Í¿ÉÒÔ¶Á³öÀ´µÄ Dim xml As MSXML2.DOMDocument30 Set xml = New MSXML2.DOMDocument30 xml.async = False xml.Load CD_Down.FileName
Dim oRst As ADODB.Recordset
Set oRst = New ADODB.Recordset
oRst.Open xml ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ Do While Not TDBG_Dept.EOF If A> ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......