¼òµ¥µÄVB×éºÏ¿òÎÊÌâ
ÓÐÁ½¸ö×éºÏ¿ò·Ö±ðÊÇcombo1ºÍcombo2ÔÚ³õʼ»¯Ê±ºòcombo1ÖÐÒѾÓÐÁ½¸öÏîÄ¿µçÊÓ»úºÍ±ùÏä
ÎÒÏëÔËÐÐʱºòÔÚcombo1ÖÐÑ¡ÔñÒ»¸öÏîÄ¿£¬ÔÚcombo2ÖоÍÏÔʾ¸ÃÏîÄ¿Ëùº¸ÇµÄ²úÆ·
ÎÒ±àдÁËÒÔÏ´úÂëÔÚÔËÐеÄʱºò×ÜÊdzö´í£¬Çë´ó¼Ò°ïæ¿´¿´
Select Case Combo1.ListIndex
Case 0
For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i
Combo2.AddItem "³¤ºç²Êµç"
Combo2.AddItem "¶«Ö¥²Êµç"
Combo2.AddItem "ÏÄÆÕ²Êµç"
Combo2.AddItem "²Êºç²Êµç"
Case 1
For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i
Combo2.AddItem "ËÉϱùÏä"
Combo2.AddItem "¶«Ö¥±ùÏä"
Combo2.AddItem "ÏÄÆÕ±ùÏä"
Combo2.AddItem "²Êºç±ùÏä"
End Select
³ÌÐòÔËÐÐʱºòµ±µÚÒ»´ÎÔÚcombo1Ñ¡ÖÐÒ»¸öÏîĿʱºò£¬ÔÚcombo2ÖÐÄÜÕýÈ·ÏÔʾ³öÀ´ÄÄЩ²úÆ·
µ±µÚ¶þ´ÎÔÚcombo1Ñ¡ÖÐÏîĿʱ£¬¾ÍÌáʾCombo2.RemoveItem iÕâ¸öÓï¾ä±àÒë³ö´í
For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i
¿ÉÒÔÓÃCombo2.ClearÀ´´úÌæ
µ°Ìù¡£¡£¡£
ÒòΪÄãµÚÒ»´ÎÔÚcombo1Ñ¡ÖÐÒ»¸öÏîĿʱºò£¬Ã»ÓÐÖ´ÐÐforÑ»·ÀïµÄÄÚÈÝ
µÚ¶þ´ÎÑ¡ÖÐcombo1µÄʱºò,ÿִÐÐÒ»´ÎCombo2.RemoveItem i ,Combo2.ListCount¾Í¼õСÁË,¶øiÔÚ±ä´ó,ÏÔÈ»»áÔ½½çÁË.
ÕâÑù:
Select Case Combo1.ListIndex
Case 0
Combo2.clear
Combo2.AddItem "³¤ºç²Êµç&q
Ïà¹ØÎÊ´ð£º
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......