''' <summary>
''' 生成新的ID值
''' </summary> '''
Function NewGUID(Optional ByVal Len As Integer = 8, Optional T As Integer = 0) As String '生成GUID码
Dim N As String = Guid.NewGuid.ToString.ToLower
If T = 1 Then N = Regex.Replace(N, "\D+", "")
Return N.Substring(N.Length - Len, Len)
End Function
这个生成代码,可以根据自已的需要长度来生成,默认是生成一个8位的,可以用于数据库ID使用。而且还可以只要数字部分这样就相当于数字随机生成了