01.Private Sub R_Number()
02.
03. ClereAllData()
04. Dim sql_ As String
05.
06. sql_ = " SELECT MAX(EVENT_ID)+1 AS id FROM TB_EVENTJOBSALE ORDER BY EVENT_ID ASC "
07.
08. Dim comStr As New OleDbCommand(sql_, OleDbConnection1)
09. Dim crm As OleDbDataReader = comStr.ExecuteReader
10.
11.
12. If crm.Read Then
13.
14. If IsDBNull(crm.Item("id")) = True Then
15.
16. Txt_Postid.Text = ""
17.
18. ElseIf IsDBNull(crm.Item("id")) = False Then
19.
20. Dim Last_CostomerID As String
21.
22. Last_CostomerID = (crm.Item("id"))
23.
24. Dim Next_CostomerID As Integer
25.
26. Next_CostomerID = (Last_CostomerID.Substring(0)) + 1 - 1
27.
28. Txt_Postid.Text = Next_CostomerID.ToString("00")
29.
30. End If
31.
32.
33. End If
34.
35.
36. End Sub
