自动生成字母数字ID

Question

需要帮助与自动生成ID。我有这个代码，自动生成ID，但只有10个增量好。它从PO0001开始，直到PO0010，一旦它到达PO0010，ID就会卡在PO0001中。

下面是我使用的代码：

Public Function newPOID(prefix As String, storedProcedure As String) As String

    Dim newId As String = prefix + "0001"
    Dim adpt As New SqlDataAdapter
    Dim ds As New DataSet
    Dim dr As SqlDataReader
    Dim conn As New SqlConnection
    conn.ConnectionString = conString
    utos = New SqlCommand(storedProcedure, conn)
    utos.CommandType = CommandType.StoredProcedure
    conn.Open()
    dr = utos.ExecuteReader

    If dr.Read Then
        If dr.IsDBNull(0) Then
            Dim num As Integer = 1
            'Dim prefix As String = "PO"
            Dim append As String = prefix + num.ToString().PadLeft(4, "000")
            newId = append
        Else
            Dim POstring As String = dr(0).ToString.Substring(0, 3)
            Dim POID As Integer = dr(0).ToString.Substring(5) + 1
            Dim append As String = POstring + POID.ToString().PadLeft(3, "000")
            newId = append
        End If
        conn.Close()
    End If


    Return newId

End Function

Answer 1

用Format(num,"000#)替换num.ToString().PadLeft(4, "000")