28-01-25, 12:43 AM
السلام عليكم
قومت بالتعديل على هذا الكود من الرد استاذى الفاضل Kamil
رجاء مراجعة الكود من الاخوة لو امكن اختصارة او مراجعة لو يوجد اخطاء برمجية
مع العلم الكود يعمل بشكل سليم وكما المطلوب
قومت بالتعديل على هذا الكود من الرد استاذى الفاضل 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()