ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
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µÄ¡£ÔÚÒ»¸ö±ê׼ģ¿éÖж¨Ò壺
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö ´úÂëÓ¦¸ÃÔõô´ò£¿ LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
¿ÉÒÔÂð ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡ ¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿ 2·Ö¸øÎҵĻ°¾Í¿ÉÒÔ¡£ ........................¿ÉÒÔÂð ¿ÉÒÔ! ¾À½á£¬ 29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì A. ......
ÈçÌâ¡£ ²»ÓÃAPIÒ²ÄÜʵÏÖ: http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë. http://download.csdn.net/ ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË ÎÒҲûÕÒµ½ Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡ ¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£ mark pls learn from ba ......