VBÖнçÃæÊý¾Ý¼´Ê±¸üÐÂÎÊÌâ
ÒÀ´Î´ò¿ª2¸ö´°Ì壬ÔÚµÚ2¸ö´°ÌåÖвÙ×÷ÐÞ¸ÄÒ»Ìõ¼Ç¼£¬µ±Í˳öµÚ2¸ö´°Ìåʱ£¬µÚÒ»¸ö´°ÌåÓëÖ®¶ÔÓ¦µÄÊý¾ÝËæÖ®±ä»¯¡£
·½·¨1£º´°Ìå2Í˳öʱ½«Êý¾Ý±£´æµ½Êý¾Ý¿âÖУ¬´°Ìå1ÖØÐ´ÓÊý¾Ý¿âÖжÁÈ¡Êý¾Ý
·½·¨2£º´°Ìå2Í˳öʱ½«Êý¾Ý¿âдµ½´°Ìå1¶ÔÓ¦µÄ¿Ø¼þÖÐ
Á½¸öÁ¬µ½Ò»¸ö¿â£¬ÔÚµÚ¶þ¸ö´°Ì幨±Õʱ£¬Ë¢ÐµÚÒ»¸ö´°Ìå¾ÍºÃÁË¡£ÎÒÊÇÕâôÏëµÄ£¬Ã»ÊÔÑ飬¥Ö÷¿ÉÒÔ×Ô¼ºÊÔÑéһϡ£¿ÉÒÔÓÃdatagrid ÎÒ¾öµÄÕâ¸ö¿Ø¼þÓõ½Äã˵µÄÎÊÌâÉÏÓ¦¸ÃûÓÐÎÊÌâµÄ¡£ÄãÔÙÊÔÊÔ£¡
Leftie·½·¨2£º²»·ûºÏÒªÇó£¡
´°Ìå2Í˳öºó£¬´°Ìå1ÒªÖØÐ´ò¿ªÊý¾Ý±í£¨¼´ÖØÐ²éѯ£©¡£
¾ÍÊÇÊý¾Ý½»»»Âï!
1.Êý¾Ý¿É·ÅÔÚÄãÏëµ½µÄÈκεط½:Êý¾Ý¿â,±¾µØÎļþ,¹«¹²±äÁ¿,´°ÌåµÄij¸öÊôÐԵȵÈ;
2.Ñ¡Ôñ´¥·¢»úÖÆ:2´°Ì幨±Õʱ,1´°Ìå³ÉΪµ±Ç°´°Ìåʱ,Óû§ÊÖ¹¤Ë¢ÐÂʱ,¼ÆÊ±Æ÷µÈµÈ;
µ±2¹Ø±Õʱ£¬Çå³ý-ÖØÐ¼ÓÔØÊý¾Ý
¹Ø¼üÊÇ2 .SHOW 1
Éè³ÉģʽÏÔʾ ÔÚ.SHOW 1ºóÃæ µÄÓï¾äÖÐÔÙË¢ÐÂÊý¾Ý
ÔÚ´°Ìå2Öж¨ÒåÒ»¸öʼþ
public event ʼþÃû()
ÔÚ´°Ìå2µÄunloadʼþÀïÅ׳ö´Ëʼþ
raiseevents ʼþÃû
ÔÚ´°Ìå1Öж¨Òå
private withevent oForm2 as Form2
ÏÔʾ´°Ìå2µÄ´úÂë
set oForm2=new form2
oform2.show vbmodal,me
set oform2 =nothing
ÔÚ´°Ìå1µÄ
oForm2_ʼþÃû
µÄ¹ý³ÌÀï,дˢдúÂë
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
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
......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......