Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb·­Òë³ÉC#ʱÓö¼ûµÄµÄÂé·³

ADODB.RecordsetÎÒ°ÑËûµ±³ÉDataTableÀ´´¦Àí£¡
¿ÉÊÇËüÓиöADODC.EOF ÊôÐÔ£¬Õâ¸öÎÒÒªÔõôÀ´´¦Àí?
¿´ÄãÊÇÅжÏÓÐûÓÐÐÐÊý£¬»¹ÊÇÅжÏÊÇ·ñµ½ÁË×îºóÒ»ÐÐ
Èç¹ûÅжÏÓÐûÓÐÐÐÊý£¬Ò»°ãÊÇÅжÏBOFºÍEOFÊÇ·ñ¶¼Âú×㣬C#Àï¿ÉÒÔÖ±½ÓÓÃÅжÏRows.Count
Èç¹ûÊÇÅжÏÊÇ·ñµ½ÁË×îºóÒ»ÐУ¬Ò»°ãÊÇÒ»ÐÐÒ»ÐÐÈ¡µÄÇé¿ö£¬ÒòΪVBÀïÊÇ.movefirstÈ»ºó.movenextһֱȡµÄ£¬¶øC#ÀïÃæÄã¿ÉÒÔfor (int i=0;i <XXX.Rows.Count;i++)À´Ñ­»·

VB code:


sSQLcheck = "Select np_Iflight from a_newplan " + lcWhereCheck + " and (np_Istate='Æð·É' or np_Istate='FPL')"

If Objdata.ExecSelect(rsTemp, sSQLcheck, "") Then Exit Sub

If rsTemp.EOF Then

ËýÕâ¶Î´úÂëÊÇÕâÑùµÄ£¬ÄãÈÏΪËûÊÇÅжÏÓÐûÓÐÐл¹ÊÇÅÐ×îºóÒ»ÐУ¿

ÅжÏÊDz»ÊÇÓÐÊý¾Ý £¬ ÓоÍÖ´ÐÐÏÂÃæ¡£¡£¡£


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ