01.Public Function a1() As String
02. Dim id1 As String
03. Dim l1 As String
04. Dim dt1 As DataTable = New DataTable
05. Dim SQL1 As String
06. SQL1 = "SELECT Max(song_id) FROM song"
07. dt1 = c.ExRead(SQL1)
08. id1 = dt1(0)(0).ToString
09. If dt1(0)(0).ToString <> "" Then
10. If id1.Substring(id1.Length - 1) <> "9" Then
11. id1 = dt1(0)(0).ToString
12. l1 = id1.Substring(id1.Length - 1, id1.Length - 6)
13. id1 = id1.Substring(0, id1.Length - 1) + (Integer.Parse(l1) + 1).ToString
14. ElseIf dt1(0)(0).ToString.Substring(id1.Length - 1) = "9" Then
15. If dt1(0)(0).ToString.Substring(id1.Length - 2, id1.Length - 6) = "9" Then
16. If dt1(0)(0).ToString.Substring(id1.Length - 3, id1.Length - 6) = "9" Then
17. If dt1(0)(0).ToString.Substring(id1.Length - 4, id1.Length - 6) = "9" Then
18. If dt1(0)(0).ToString.Substring(id1.Length - 5, id1.Length - 6) = "9" Then
19. id1 = dt1(0)(0).ToString
20. l1 = Integer.Parse(id1.Substring(1, id1.Length - 6)) + 1
21. id1 = "S" + l1 + "00000"
22. Else
23. id1 = dt1(0)(0).ToString
24. l1 = Integer.Parse(id1.Substring(2, id1.Length - 6)) + 1
25. id1 = "S0" + l1 + "0000"
26. End If
27. Else
28. id1 = dt1(0)(0).ToString
29. l1 = Integer.Parse(id1.Substring(3, id1.Length - 6)) + 1
30. id1 = "S00" + l1 + "000"
31. End If
32. Else
33. id1 = dt1(0)(0).ToString
34. l1 = Integer.Parse(id1.Substring(4, id1.Length - 6)) + 1
35. id1 = "S000" + l1 + "00"
36. End If
37. Else
38. id1 = dt1(0)(0).ToString
39. l1 = Integer.Parse(id1.Substring(5, id1.Length - 6)) + 1
40. id1 = "S0000" + l1.ToString + "0"
41. End If
42. End If
43. ElseIf dt1(0)(0).ToString = "" Then
44. id1 = "S00001"
45. End If
46. Return id1
47.End Function
