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
¸ßÊÖ ·ÖÈ«¸øÄãÁË
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......