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»ÊÇÓÐÊý¾Ý £¬ ÓоÍÖ´ÐÐÏÂÃæ¡£¡£¡£
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......