VB RecordSetÎÊÌâ
StrSQL="SELECT Max(SaleTicketNo) as salesticketno from tabSaleList WHERE saledate=2010-4-14"
Set SaleRS = SaleMDB.OpenRecordset(StrSQL, dbReadOnly)
Èç¹û²éѯ³öÀ´Ã»ÓÐÖµ ÔÚµ÷ÊÔµÄʱºò¿´¼ûSaleRS("salesticketno")µÄ½á¹ûÊÇNull ÎÒ¼ÓÉÏÅжÏÌõ¼þ
If Not SaleRS.EOF Then
If SaleRS("salesticketno") = Null Then
TicketedNo = "000001"
Else
TicketedNo = SaleRS("salesticketno")
End If
End If
Ϊʲô If SaleRS("salesticketno") = Null Õâ¸öÌõ¼þÊDz»³ÉÁ¢µÄ°¡? ÄÇÓ¦¸ÃÔõôÅжϰ¡?
Íü¼Ç˵ÁË ÎÒµÄÊý¾Ý¿âÊÇÓõÄACCESS
¸ßÊÖ ·ÖÈ«¸øÄãÁË
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......