±¾È˸ÕѧVbÇë´óϺÃÇÄÍÐÄÖ¸½Ì£¡Ð»Ð»£¡

Private Sub Form_Load()
            Dim strNum As String
            With Drug_Store.rsShoppingCars
                If .State = adStateClosed Then .Open
                .Requery
              .Filter = " ÈÕÆÚ Like '" & Date & "%'"  ³ö´íµÄµØ·½ ¹ýÂËÆ÷²»Äܱ»´ò¿ª¡£
                If .EOF Then
                    strNum = Format(Date, "yymmdd") & "00001"
                Else
                    .MoveLast
                    strNum = Right(.Fields("±àºÅ"), 5)
                    strNum = Format(Val(strNum) + 1, "00000")
                    strNum = Format(Date, "yymmdd") & strNum
                End If
            End With
            TxtNumber = "T" & strNum
E