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

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean



siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж¨ÒåµÄ¹«¹²Óû§ÀàÐÍ¿ÉÒÔ×÷Ϊ²ÎÊý¡£¡£¡£¡£¡£¡£ ¡±£¬Èç¹ûÎÒÐèÒªÔÚDownloadAdditionalSiteº¯ÊýÖÐʹÓÃsiteconfigÀàÐ͵ÄÊý¾Ý£¬Ó¦¸ÃÈçºÎ½â¾öÄØ£¿¶øÇÒÕâ¸öº¯ÊýÓÖÓ¦¸ÃÊÇpublicµÄÀàÐ͵ģ¬²»ÄÜÊÇprivateµÄ¡£


½«siteconfig¶¨ÒåÔÚ¹«¹²Ä£¿éÖÐ

òËÆдµ½¹«¹²Ä£¿é²»ÐеÄ

ding

ÔÚFARMÖУº
Private Function P_SaveBook(ByVal pOldStatus As eTransStatus, ByVal pNewStatus As eTransStatus, ByVal pTableName As String) As Boolean
ÔÚCLASS MODULESÖУº
Public Enum eTransStatus
  trNone = 0
  trPaid = 2
  trHold = 3
  trPreBalance = 4
  trCancel = 5
  trJoin = 6
  trBook = 7
' trNoSaleOpen = 7
End Enum

¶¼·Åµ½±ê׼ģ¿é£¬¿´ÄÜ·ñÖ´ÐÐ

°ï¶¥

ÒýÓÃ
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean


siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж¨ÒåµÄ¹«¹²Óû§ÀàÐÍ¿ÉÒÔ×÷Ϊ²ÎÊý¡£¡£¡£¡£¡£¡£ ¡±£¬Èç¹ûÎÒÐèÒªÔÚDownloadAdditionalSiteº¯ÊýÖÐʹÓÃsiteconfigÀàÐ͵ÄÊý¾Ý£¬Ó¦¸ÃÈçºÎ½â¾öÄØ£¿¶øÇÒÕâ¸öº¯ÊýÓÖÓ¦¸ÃÊÇpublicµÄÀàÐ͵ģ¬²»ÄÜÊÇprivateµÄ¡£


ÔÚÒ»¸ö±ê׼ģ¿éÖж¨Ò壺


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈË°ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍƼöʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂ붼ÊÇÖÐÎÄ ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒƵ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

ÐÂÊÖÇë½Ì¹ØÓÚVBÖд®¿ÚͨÐÅMSCOMM£¨Ïëͬʱ·¢Á½¸öÃüÁ

¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊǼà¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úÄ¿Ç°µÄ¸÷À๤×÷× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ