ÎҵijÌÐòÒ»Ö±ÔËÐеúúõÄ, µ«ÒòΪ¹¤³ÌÓеã´ó,ËùÒÔÒ»Ö±ÔÚÍùÀïÌíFORM,ÒÑ´ï½ü°Ù¸öFORMÁË,ÏÖÔÚ·¢ÏÖÕâ¸öMSHFlexGrid¿Ø¼þÂÒÀ´ÁË,±ÈÈç: For n = 1 To MSHFlexGrid1.Rows For m = 1 To MSHFlexGrid1.Cols newsheet.Cells.Item(n, m) = Trim(MSHFlexGrid1.TextMatrix(n - 1, m - 1)) Next Next newsheetÊÇEXCELÎļþ±í¶ÔÏó,ÉÏÃæµÄÓï¾äÖ÷ÒªÊǰÑÏÖÓеÄMSHFlexGrid1ÄÚÈݵ¼µ½EXCEL±íÖÐ. ÏóÕâÑùµÄÓï¾äËü»áÌáʾ:"ϱêÔ½ÏÞ"µÄ´íÎó! ¾¹ýÏÔʾ·¢ÏÖ,Ô±¾Ö»ÓÐ15ÁеÄMSHFlexGrid1.ColsÖµÓÐ35! ²»ÖªµÀÊÇʲôÔÒò,ÒªÈçºÎ½â¾ö,Ŀǰ·¢ÏֵͼÊÇÔö´ó,²¢ÇÒ³ö´í,²»ÖªµÀ»á²»»á¼õÉÙµÄ,ÒòΪÎÒÏÖÔڵĽâ¾ö·½·¨ÊÇÓà on error resume next Óï¾ä. ¼¸ºõËùÓеÄMSHFlexGrid1.Cols¶¼ÓÐÎÊÌâ! ÎҵİÙÀ´¸öformÖÐÓÐÒ»°ëÒÔÉϵÄformÓÐMSHFlexGrid¿Ø¼þ. ¶ÔÕâ·½ÃæÓоÑéµÄÅóÓѸøµã½¨Òé. лл!ÕâÊÇLZ±¾Éí´úÂëµÄÎÊÌâ. ¿ÉÄÜÂð? Çë½ÌÄú¾ßÌåµÄÎÊÌâÔÚÄÇ. LZ:Äã³ÌÐò¼ÈȻһֱÄܺܺÃÔËÐÐ,ÎÒ²»Ã÷°×ΪºÎÒ»Ö±ÒªÍø³ÌÐòÀïÌí¼Ó´°Ìå?Ò»¸öÓÐ100¶à´°ÌåµÄ³ÌÐòά»¤´úÂëÎÒ¿´Ò²ÊÇÀ§ÄѵÄ. ÅóÓÑ,ÎÒ³ÌÐòÊǸöERP ÎÒдÁËÒѾÓÐ3¸ö¶àÔÂÁË,Ò»±ßдһ±ßÆóÒµÓ¦ÓÃ,Ò»±ß¸Ä½ø,Ò»±ßÔö¼ÓеÄÄ£¿é. ÎÒ¹À¼ÆÍê³ÉËüÖÁÉÙ»¹µÃÓÐ40-50¸öform ERP²»ÓÃÊý¾Ý¿â¶øÓÃEXCEL? LZ:×¢Òâ±äÁ¿µÄ×÷ÓÃÓòºÍ´°ÌåµÄÉúÃüÖÜÆÚ. µ±È»ÊÇÓÃÊý¾Ý¿âÁË,µ«Í¬Ê±ÎÒÒªÓ
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°Ñ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 ......