ÓÃrs232Á¬½ÓµÄ¡£ÔÚÁ½Ì¨»ú×ÓÉÏͨÐÅ¡£
°×³ÕÎÊÌâÀ´ÁË£º
ÎÒÔÚһ̨»úÉÏ¡£Ôõô¿ÉÒÔʹ 6¸öÎı¾¿òµÄÄÚÈÝʱ´«µ½Í¬Áíһ̨×ÓÉÏ»úÉϵÄÁù¸öÎı¾ÖС£
´«Ò»¸öÎı¾¿òµÄÄÚÈÝ»áÒ»µã¡£
ÎÒ×¼±¸ÓÃÑ ......
vbÖÆ×÷±ê×¼dll£¬¿ÉÒÔµ¼³öº¯ÊýµÄÄÇÖÖ£¬ÒÔ¼°ÔÚvb£¬vc³ÌÐòÖÐÔõÑùµ÷ÓÃ
1¡¢Ð½¨ActiveX Dll¹¤³Ì£¬Îª¹¤³ÌÃüÃû£¨¼´Éú³ÉDLLºóµÄÀà¿âÃû£©
2¡¢¹¤³Ì»á×Ô¶¯´´½¨Ò»¸öÀàÄ£¿é¡£ÎªÆäÃüÃû¡£Æä¹Ø¼üÊôÐÔÊÇInstancing¡£Ä¬ÈÏֵΪ5£¨¿É´´½¨ÊµÀý£©¡£Èç¹û½«¸ÃÖµÉèÖÃΪ6£¬ÔòÔÚVB¹¤³ÌÒýÓÃÀà¿âºó£¬¸ÃÀ಻±Ø´´½¨ÊµÀý£¬Æ乫¹²³ÉÔ±¿ÉÖ±½ÓʹÓá£
3¡¢ ......
±¾È˲ËÄñÒ»¸ö£¬Ñ§ÁËÁ½¸öÔ£¬ÓÃvb6.0×öÁËÒ»¸ö¼òµ¥µÄ¿â´æ¹ÜÀíϵͳ£¬²¢ÇÒÒ²ÄÜÉú³É°²×°Îļþ£¬Ìý´ïÈË˵¹ý£¬vb¿ÉÒÔʵÏÖÍøÂç±à³Ì£¬ÎÒÏë²»µ½ÎÒ×öµÄÕâ¸ö¿â´æ¹ÜÀíϵͳÔõô·Åµ½ÍøÉÏÈ¥ÄØ£¿Çë´ïÈ˸øµã˼·£¬²½ÖèµÄ»°£¬¸øÏêϸµãллÁË£¡
º¹!ÄãÊÇÒª½øÐÐÍøÂç±à³ÌÄØ£¿»¹ÊÇÒª½«ÄãµÄ³ÌÐò·¢²¼µ½ÍøÉÏÄØ£¿
ÊÀ¼ÍÄÑÌ⣬ֻÄܰﶥ
......
ÎÒÔÚwordÎĵµÀïн¨ÁËÒ»¸öTable, ¸ñʽΪ1*2µÄ, Ä¿Ç°ÔÚÆäÖÐÒ»¸öµ¥Ôª¸ñÀï²åÈëÁ˶à·ùͼƬ.
ÏÖÔÚÏëɾ³ýÆäÖеÄ1·ù, Ôõôɾ? ÒªÓÃVBÀ´ÊµÏÖµÄ.
ActiveDocument.Tables(1).Range.DeleteÏÂÃæÕâ¸öÒ»µ÷ÓÃ,°ÑÎÒÕâ¸öµ¥Ôª¸ñÀïµÄËùÓÐͼƬ¶¼É¾ÁË.
ActiveDocument.Tables(1).Range.xx.Delete
¿´µ½¡®µ¥Ôª¸ñ¡¯£¬ÎÒ»¹ÒÔ ......
ÏòcomboboxÖÐÌí¼Ó×Ö·û´®£¬Èç¹û·¢ÏÖÒѾ´æÔھͲ»ÔÙÌí¼ÓÁË£¬²»ÖªµÀÔõô×öÑ»·£¬Çë½Ì
²¹³äÏÂ
if i = 0 then
VB code:
Option Explicit
Private Sub Command1_Click()
Dim i As Long
Dim S As String
S = "12345" 'ÐèÒªÔö¼ÓµÄÏî
For i = 0 ......
ÎÒÊÇÒ»ÃûVB³õѧÕߣ¬ÏÖÔÚÐèÒª½«Ò»¸ö±íµÄÊý¾ÝÌí¼Óµ½ÁíÒ»¸ö±íÉÏ¡£ÎÒÏëͨ¹ý½«Ò»¸ö±íµÄÏà¹ØÊý¾Ý¸³µ½ÁíÒ»¸ö±íÉÏÀ´Íê³É£¬ÎÒÓÃÁËÈçÏÂÓï¾ä£º
Data1.Recordset.Fields "ѧºÅ"=data2.Recordset.Fields "ѧºÅ"½á¹ûϵͳÌáʾÊÇ´íÎóµÄ
ÇëÄÄλ¸ßÊÖ°ï濴һϣ¬Ó¦¸ÃÔõôдÕâÓï¾ä
Data1.Recordset.Fields("ѧ ......