[new_programer]

السلام عليكم جميعا اخوانى الكرام 
لدى حقل باركود يحتوى على كود الصنف + رقم 
مثال 
100-1
100-2
200-1
200-2
200-3
محتاج طريقة زيادة واحد على الرقم بعد علامة -
بدلالة الرقم اللى على اليمين

[dr.programming]

توضيح أكثر !!

[أبو خالد الشكري]

أضف في النافذة Button1 وكذلك TextBox1
ثم جرب الكود التالي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim originalText As String = TextBox1.Text
       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 = $"{leftPart}-{rightPart}"
               TextBox1.Text = newText
           End If
       End If
   End Sub

[new_programer]

    عذرا. استاذي الكود لا يعمل

محتاج فقط ذيادة الرقم بعد العلامة - 
حسب  الرقم الموجود فى حقل الكود كما بالصورة

1001-5

[new_programer]

Dim numar As Double
If Double.TryParse(TextBox1.Text, numar) Then

Dim rmndr As Double
rmndr = numar Mod 1
If rmndr = 0 Then
Else
TextBox2.Text = Split(CStr(TextBox1.Text), ".")(1)
End If
End If

محتاح تعديل الكود بدل ال "."

"-"

[Zuhare]

فين كود الاخ أبو خالد الشكري لماذا لم تستخدمه فالحل كان فيه واذا كنت بتقصد ان الناتج يظهر في TextBox2 فهذا نفس الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim originalText As String = TextBox1.Text
       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}"
               TextBox2.Text = newText
           End If
       End If
   End Sub

[new_programer]

شكرا جدا استاذتي

Zuhare

الكود يعمل جيدا

---

ازاى ممكن اجلب اعلي باركود للصنف من قاعدة البيانات