[5分]请问如何在连续窗体里面不使用查询生成序号

一、建立模块，定义函数GetLineNumber():

 Function GetLineNumber(F As Form, KeyName As String, KeyValue)
         Dim RS As Recordset
         Dim CountLines

         On Error GoTo Err_GetLineNumber

         Set RS = F.RecordsetClone

         Select Case RS.Fields(KeyName).Type
   
            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
            DB_DOUBLE, DB_BYTE
               RS.FindFirst "[" & KeyName & "] = " & KeyValue
      
            Case DB_DATE
               RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
      
            Case DB_TEXT
               RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
               MsgBox "ERROR: Invalid key field data type!"
               Exit Function
         End Select

     
         Do Until RS.BOF
            CountLines = CountLines + 1
            RS.MovePrevious
         Loop

Bye_GetLineNumber:
      
         GetLineNumber = CountLines

         Exit Function

Err_GetLineNumber:
         CountLines = 0
         Resume Bye_GetLineNumber

      End Function