[Kamil]

تفضل اخي هذا اختصار للكود 

PHP كود :

If conn.State <> ConnectionState.Open Then conn.Open()

cmd = conn.CreateCommand()
cmd.CommandText = "SELECT TOP 1 itemCode2 FROM itemsTbl WHERE itemCode = @Code ORDER BY CAST(SUBSTRING(itemCode2, CHARINDEX('-', itemCode2) + 1, LEN(itemCode2)) AS INT) DESC"
cmd.Parameters.AddWithValue("@Code", txtItemCode.Text)

Using rdr As SqlDataReader = cmd.ExecuteReader()
    If rdr.Read() Then
        Dim originalText As String = rdr.GetValue(0)
        Dim parts() As String = originalText.Split("-"c)

        If parts.Length = 2 AndAlso Integer.TryParse(parts(1), rightPart) Then
            txtItemCode2.Text = $"{parts(0)}-{rightPart + 1}"
        End If
    Else
        txtItemCode2.Text = $"{txtItemCode.Text}-1"
    End If
End Using

If conn.State = ConnectionState.Open Then conn.Close()