[new_programer]

قومت بالتعديل على هذا الكود من الرد استاذى الفاضل   Kamil

رجاء مراجعة الكود من الاخوة  لو امكن اختصارة او  مراجعة لو يوجد اخطاء برمجية 

مع العلم الكود يعمل بشكل سليم وكما المطلوب 

كود :

  Dim rdr As SqlDataReader = Nothing
       If conn.State <> ConnectionState.Open Then conn.Open()
       '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)

       rdr = cmd.ExecuteReader()
       If rdr.Read() Then
           'txtItemCode2.Text = rdr.GetValue(0)



           Dim originalText As String = rdr.GetValue(0)
           Dim parts() As String = originalText.Split("-"c)

           If parts.Length = 2 Then
               Dim leftPart As String = parts(0)
               Dim rightPart As Integer

               If Integer.TryParse(parts(1), rightPart) Then
                   rightPart += 1
                   Dim newText As String = String.Format("{0}-{1}", leftPart, rightPart)
                   'Dim newText As String = $"{leftPart}-{rightPart}"
                   txtItemCode2.Text = newText

               End If
           End If
       Else
           Dim UintID As String = txtItemCode.Text

           Dim BarCodeVind = String.Concat(UintID, "-", 1)

           txtItemCode2.Text = BarCodeVind

           rdr.Close()


       End If
       If (rdr IsNot Nothing) Then
     
       End If
       'If conn.State = ConnectionState.Open Then
       conn.Close()