自動生成id號(id=id+1)

Private Function GenerateApplicationCode(ByVal str As String)               '自動生成案件代碼

            Dim i As Integer

            Dim strAppCode As String

            strAppCode = str + 1

            While strAppCode.Length <> str.Length

                strAppCode = "0" + strAppCode

            End While

            Return strAppCode

        End Function