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»ÊÇÓÐÊý¾Ý £¬ ÓоÍÖ´ÐÐÏÂÃæ¡£¡£¡£
Ïà¹ØÎÊ´ð£º
txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
ÎÒÓÃjqueryÎÞË¢ÐÂÉÏ´«Í¼Æ¬ºó·µ»Øjson¸ñʽµÄÊý¾Ý±¨´í
£¨Êµ¼ÊÉÏͼƬÊÇÉÏ´«³É¹¦µÄÁË£¬Ö»ÊÇ·µ»Øjson¸ñʽ×ܶÁ²»µ½£¬×ÜÊDZ¨´í£©
ÎÒµ÷ÊÔÉÏ´«µÄashxÒ³ÈçÏÂ
ÎÞ·¨ÏÔʾ XML Ò³¡£
ʹÓà Ñùʽ±íÎÞ·¨²é¿´ XML ÊäÈë¡£Çë¸ü ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......