[5分]平台中的acchelp_autoid在使用中碰到不能自递增？

我的销售流水号一直是用平台的acchelp_autoid生成的。格式是：XS2009010001

一直用的很正常，但是现在到了5月份，生成了第一条销售流水号是XS2009050001

但是到新增第二条记录时，还是一样生成了XS2009050001，所以导致系统无法使用。

自动生成流水号的代码如下：

Private Sub Autolsh()
'功能：生成报销明细编号
    Dim YM As String
    Dim YMold As String
    '使mxID文本框有效，写入数据
    Me.LSH.Enabled = True
    Me.LSH.SetFocus
    '生成编号前缀，格式为xs200701,即年四位,月两位
    YM = "XS" & Year(Date) & Format(Month(Date), "00")
    If CheckRecords("tblcodeXS") = True Then    'checkRecords函数说明见平台帮助第十二章
        '如果表中存在记录,则去取得表最后一条记录的年月
        YMold = Left(DLast("LSH", "tblcodeXS"), 8) '取tblXsddzj表中最后一条记录的xsddid字段的值的前8位
        If YM = YMold Then    '如果系统月份与最后一条记录月份相同,则增加1
            Me.LSH = acchelp_autoid(YM, 4, "tblcodeXS", "lsh")    'acchelp_autoid函数说明见平台帮助第十二章
        Else    '如果不相同,则按新月份从1开始编号
            Me.LSH = YM & "0001"
        End If
    Else
        '如果表中不存在记录，则生成第一条编号
        Me.LSH = acchelp_autoid(YM, 4, "tblcodeXS", "lsh")
    End If

    '让khid文本框获得焦点
    Me.kehumingc.SetFocus
    '使用xsddid文本框无效，以防止操作员误修改数据
    Me.LSH.Enabled = False
End Sub

希望大家帮忙看看。