[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()