VBÎļþ²Ù×÷
Private Sub Command1_Click()
Dim m As Integer '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
Dim n As Integer '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
Dim k As Integer 'Ñ»·¿ØÖÆ´ÎÊý
m = Val(Text1.Text)
n = Val(Text2.Text)
For k = m To n
Open Dir1.Path + "\k.txt" For Output As #k
Next
End Sub
Õâ¶Î´úÂëµÄ±¾À´ÓÃÒâÊǵã»÷command1°´Å¥µÄʱºò ÔÚÖ¸¶¨Îļþ¼ÐÖд´½¨ ÎļþÃûΪÊý×Öm µ½nµÄ n-m¸öÎļþ£¨Ôݲ»ÅжÏn ºÍmµÄ´óСÎÊÌ⣩
¿ÉÊÇÎÒµ÷ÊÔµÄʱºòÖ»Éú³Ék.txtÎļþ ÔõôÈÃforÑ»·ÀïµÄkÕæÕýµÄÆð×÷ÓÃ
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Éè¼ÆÒ»¸öÊó±ê»Í¼³ÌÐò£¬½çÃæÉè¼Æ£¬´°ÌåÖÐÌí¼ÓÒ»¸öpicturebox¿Ø¼þ£¬Ò»¸öcombobox×éºÏÏÂÀ¿ò¡¢Ò»¸öͨÓöԻ°¿òÓëÁ½¸öÃüÁî¿ò£¬ÒÔÏÂÊÇÎҵijÌÐò£¬µ«ÊÇÎÒÔËÐеÄʱºò×ÜÊÇÌáʾ±äÁ¿Î´¶¨Ò壬»¹Íû¸÷λ´óÏÀ°ïæָÕýÄÄÀï³öÁËÎÊÌâ
......