01.Protected Sub autoid()
02. Dim dv As DataView
03. Dim sum As Integer
04. Dim sqlTmp As String
05.
06. Dim yyyy As String = CStr(Now.Year + 543)
07. Dim mm As String = CStr(Now.Month)
08. sqlTmp = "Select MAX(durStf_ann_id) as durStf_ann_id from tb_mate_durStf_ann1 "
09.
10. dv = ObjDb.GetDataSet(sqlTmp).Tables(0).DefaultView
11.
12. If dv.Count > 0 Then
13.
14. Dim newID As Integer = CInt(dv.Table.Rows(0)(0).ToString().Substring(7))
15. newID = newID + 1
16.
17.
18.
19. txtdurStf_ann_id.Text = yyyy & "/" & "0" & mm & "-" & newID.ToString("0000")
20. Else
21. txtdurStf_ann_id.Text = yyyy & "/" & "0" & mm & "-" & "0001"
22. End If
23.
24. End Sub
Quote:
