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(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
21cnµÄÓÊÏ䣬ÔÚoutlookÅäÖúó¿ÉÒÔÕý³£ÊÕ·¢Óʼþ£¬¿ÉÊÇÎÒдÔÚC#ÖоͲ»ÐУ¬»»³ÉÆäËüÓÊÏ䣬163ºÜÔç×¢²áµÄ¡£¿ÉÒÔ·¢ËÍ¡£²éÁ˺ܾã¬Ã»ÓÐÕÒµ½ÔÒò£¬Çë¸ßÊÖ°ïæ½â´ð¡£¡£¡£Ð¡µÜ£¬Ð»ÁË¡£¡£´úÂëÈçÏ£º
private void SendMail ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......