auto number with string in vb.net

Hi Rachayita,

Solution to your problem: you need to declare the intValue outside of the GetAutoNumber() method, like:


Dim intValue As Integer = 0
Public Sub GetAutoNumber()
... // your code goes here
End Sub

Now, just to shorten your code:
----------------------------------------------
Public Sub GetAutoNumber()


        Dim intValue As Integer = 0
        If Not ViewState("intValue") Is Nothing Then
            intValue = CInt(ViewState("intValue"))
        End If
        intValue += 1
        ViewState("intValue") = Convert.ToString(intValue)
        Dim str1 As String = txtObjectProfilesName.Text.Substring(0, 3).ToUpper()


        Dim str2 As String = cmbObjectProfilesObjectType.Text.Substring(0, 3).ToUpper()
        txt_Objectcode.Text = str1 + str2 + Convert.ToString(intValue)
        Dim test As String = txt_Objectcode.Text
    End Sub
-----------------------------------------------

Hope it helps :)

Reply for any clarification.