vb¶ÁÈ¡excelÊý¾ÝÈ¥µô¿ÕÐÐ - VB / ÍøÂç±à³Ì
¸÷λ´ó¸ç´ó½ãÃÇ£¬ÎÒÓöµ½Ò»¸öСÂé·³£¬ÔÚÍøÉÏÕÒÁ˺ܾÃҲûÓиöÈ·ÇеĴ𰸣¬¾ÍÏëÎÊÎÊ´ó¼Ò£¬ÎÒÓÃadodbÁ´½Óexcel£¬¶ÁÈ¡³öexcelµÄÊý¾Ý·ÅÔÚdatasetÀ°ÑdatasetµÄÖµÖ±½Ó°ó¶¨µ½´°ÌåÉϵÄdataGridÁË£¬µ«ÊÇexecelÉÏÃæÓÐÊý¾Ý£¬ÏÂÃæÓкܶà¿ÕµÄÐУ¬Ò»Æð¶Áµ½ÁËdataGridÉÏÁË£¬ÎÒÏëÎÊ£¬Ôõô°ÑÕâЩ¿ÕÐÐÔÚ³ÌÐòÀïÈ¥µô£¿
ºÜ¶à¿ÕÐÐÊDz»ÊÇÄãÇùý»Ø³µµÄ? excelµÚÒ»ÁÐÊÇ¿ÉÒÔΪ¿ÕµÄ£¬Ó¦¸ÃÅжϵÚËÄÁÐD²»Îª¿Õ£¬µÚËÄÁÐÊDz»ÔÊÐíΪ¿ÕµÄ£¬·ñÔò¾ÍÊÇÕû¸öÐж¼Êǿյ쬵ÚËÄÁÐÔõô±íʾ£¿ÎÒ¶ÔvbÁ˽âÌ«ÉÙ£¬Ï£ÍûÖ¸µãÖ¸µãÃÔ½ò°¡£¡ µÃµ½rsºó£¬±éÀúÇá¿Õ¿Õ¸ñ£¬ÔÙ¸½¸ødatagrid ÎÒ¾õµÃÊÇ¿ÉÒÔÔÚµ¼ÈëµÄʱºòдsqlÓï¾ä£¬¸ù¾ÝwhereÌõ¼þºóÃæµÄɸѡµÄ£¬µÚËÄÐÐÒªÔõÑù´úÌæ£¿Ïñ£º Select * from [Sheet1$] where f1<>NULL Èç¹ûÊÇÅжϵÚËÄÐÐÊÇ·ñΪ¿ÕÔõôдwhereºóÃæµÄ ÓÃÕâ¸ö xlExcel.ActiveSheet.UsedRange.Rows.Count È·¶¨EXCEL±í¸ñÖÐÊý¾ÝµÄÐÐÊý¡£ÒýÓà ÎÒ¾õµÃÊÇ¿ÉÒÔÔÚµ¼ÈëµÄʱºòдsqlÓï¾ä£¬¸ù¾ÝwhereÌõ¼þºóÃæµÄɸѡµÄ£¬µÚËÄÐÐÒªÔõÑù´úÌæ£¿Ïñ£º Select * from [Sheet1$] where f1<>NULL Èç¹ûÊÇÅжϵÚËÄÐÐÊÇ·ñΪ¿ÕÔõôдwhereºóÃæµÄ f4<>NULL f1 f2 f3 ...fNÄãÓжàÉÙÁÐN °ïæ¶¥Ò»ÏÂà¶ ÕâÑùд»áÓдíÎóµÄ£ºSELECT * from [Sheet1$] where f4<>NULL ´íÎó£ºÊý¾Ýµ¼Èëʧ°Ü£¬ÖÁÉÙÓÐÒ»¸ö²ÎÊýûÓб»Ö¸¶¨Öµ¡£Ôõô»ØÊ£¿ ½â¾öÁË£¬ºÇºÇ£¬Ð»Ð»´ó¼Ò£¡Ã¿¸öÈ˶¼·Öµã·Ö°É£¡
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðһϠhÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£ hÊÇxml¸ñʽµÄ×Ö·û´® ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿ ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[] ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£ ±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£ ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿ 244326867@qq.com ......