VB_±¨±í»ã×Ü!
ÎÊÌâÒ»:
ÎÒÊÇÓÃVBµÄDATA REPORT ×öµÄ±¨±í¡£ÒѾʵÏÖÑùʽÈçÏ£º
Ãû³Æ µ¥¼Û ÊýÁ¿ ½ð¶î
ͼÊé1 25 200 5000
ͼÊé2 30 100 3000
ÏÖÔÚÏëÔÚ ¡°½ð¶î¡±µÄÏ·½Í³¼Æ³ö×ܽð¶î£¬ÑùʽÈçÏ£º
Ãû³Æ µ¥¼Û ÊýÁ¿ ½ð¶î
ͼÊé1 25 200 5000
ͼÊé2 30 100 3000
×ܽð¶î£º 8000
ÎÊÌâ¶þ:
ÔõÑùʹ²éѯ³öÀ´µÄ½á¹û(±¨±íËùÏÔʾµÄÄÚÈÝ)µ¼³ö³ÉEXCEL¸ñʽ!
Ï£Íû¸÷λָ½Ì~~~~~
ÎÊÌâÒ»£º
excelĿǰûÓÐÕâÖÖ¹¦ÄÜ ÄãÐèÒªÔÚ³ÌÐòÖÐËã³ö
ÎÊÌâ¶þ£º
¿ÉÒÔ¿¼ÂǰÑÎı¾Ð´Èëµ½excel ÓÃCommonDialog ¿Ø¼þ ÐèÒªCommonDialog .FILENAME,CommonDialog.SHOWSAVE »¹Óм¸¸öÄãÈ¥ÍøÉÏÕÒÏÂ
ÄãµÄ±¨±íÊý¾ÝÔ´À´×ÔÄÄÀï?ÊǼǼ¼¯Âð
1.¿ÉÒÔÔÚÏÂÃ
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......