做的一个序列号排序方法的过程

''使用时的调用

Dim xh As String
xh = dhxh("b_az", "azxh", "AZ") '初始化序列号

‘’定义的过程

Function dhxh(tbl As String, zdm As String, dm As String) As String

'产生ID
                Dim xl As New ADODB.Recordset
                Dim idnew, id1, id2, id3, id4, id5 As String
                id4 = Day(Now)
                id5 = Month(Now)
                  If id4 < 10 Then
                           id4 = "0" & id4
                  End If
                 
                  If id5 < 10 Then
                           id5 = "0" & id5
                  End If
                 
             xl.Open "select " & zdm & " from " & tbl & " order by " & zdm & "", db, adOpenStatic, adLockReadOnly
                  
              If xl.EOF = True And xl.BOF = True Then
                        dhxh = dm & "10001"
              Else
                             xl.MoveLast
                           idnew = xl.Fields(zdm)
                           id3 = Val(Mid$(idnew, 3, 10))
                           id3 = id3 + 1
                           dhxh = dm & id3
              End If
                               
                           xl.Close

End Function