vb.net - 我的自动编号代码不起作用

Question

有人能帮我一下吗？当我单击按钮时，我正在尝试执行用户定义的自动编号。当记录集为空时，代码运行良好，它在我的第一条记录上给我一个 1，但是，在我再次单击该按钮后，它再次给我 1。这是我的代码。

Private Sub BtnNew_Click()
    Dim rsClone As Recordset
    Dim pVal As Integer

    Set rsClone = Me.RecordsetClone

    If Not (rsClone.BOF) Then
        DoCmd.GoToRecord , , acNewRec
        rsClone.MoveLast
        pVal = rsClone.AbsolutePosition + 2
        Me.CatgId.Value = pVal
        Me.CatgId.SetFocus
    Else
        rsClone.AddNew
        Me.CatgId.Value = 1
        Me.CatgId.SetFocus
    End If
End Sub

谢谢您的帮助。

Answer 1

我猜这是一个网页。如果是这种情况，每次您的页面处理任何事件时，您都在使用页面类型的全新实例。也就是说，每次调用函数时，代码中的“我”引用指向不同的对象。