[shado1796]

هل من حل :confused:؟

[Easy4ever]

just.coder كتب :جرب حب حط الكود دا ف حدث موس دبل كليك ف لست فيو

كود :

On Error Resume Next
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).Selected = True Then
                Dim int As Integer = ListView1.Items.Item(i).SubItems(3).Text
                Dim upd As Integer = int - 100
                ListView1.Items.Item(i).SubItems(3).Text = upd
                '\\\\\\\\\\
                Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn)


                cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(3).Text

                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm.ExecuteNonQuery()
                cm.Parameters.Clear()
                '//////////
            End If
        Next

عندي ملاحظة في هذا الكود

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn) 


في كلمة where تجي بعدها الشرط ID=@ID كيف وضعت ID في بارومتر ؟!
أستبدل @ID بـ رقم ID حق الحقل المراد التعديل فيه
يعني مثلا رقم ID موجود في ListView1.Items.Item(i).SubItems(0).Text إي أن حقل ID يعرض في ListView1 في العمود الأول

بالأخير الكود بعد التعديل
من

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn) 


إلى

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(0).Text, Conn) 


جرب وعطنا خبر

[shado1796]

Easy 4ever كتب :عندي ملاحظة في هذا الكود

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn) 


في كلمة where تجي بعدها الشرط ID=@ID كيف وضعت ID في بارومتر ؟!
أستبدل @ID بـ رقم ID حق الحقل المراد التعديل فيه
يعني مثلا رقم ID موجود في ListView1.Items.Item(i).SubItems(0).Text إي أن حقل ID يعرض في ListView1 في العمود الأول

بالأخير الكود بعد التعديل
من

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn) 


إلى

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(0).Text, Conn) 


جرب وعطنا خبر

[COLOR="#FF0000"]
هذا الكود بعدما عدلت ما قلته ،، لكن لم يتم حفظ التعديل

كود :

On Error Resume Next
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).Selected = True Then
                Dim int As Integer = ListView1.Items.Item(i).SubItems(6).Text
                Dim upd As Integer = int - (TextBox92.Text)
                ListView1.Items.Item(i).SubItems(6).Text = upd
                '\\\\\\\\\\
                Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(6).Text, Conn)


                cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(6).Text

                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm.ExecuteNonQuery()
                cm.Parameters.Clear()
                '//////////
            End If
        Next

[/COLOR]

[Easy4ever]

shado1796 كتب :
هذا الكود بعدما عدلت ما قلته ،، لكن لم يتم حفظ التعديل

كود :

On Error Resume Next
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).Selected = True Then
                Dim int As Integer = ListView1.Items.Item(i).SubItems(6).Text
                Dim upd As Integer = int - (TextBox92.Text)
                ListView1.Items.Item(i).SubItems(6).Text = upd
                '\\\\\\\\\\
                Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(6).Text, Conn)


                cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(6).Text

                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm.ExecuteNonQuery()
                cm.Parameters.Clear()
                '//////////
            End If
        Next

الكود كله أحس ان تركيبه خطأ :confused:

أولا
أنت عدلت إللي قلته لك
وعدلت إيضا هذا الكود

PHP كود :

cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(6).Text 


خليته ياخذ القيمة من العمود السابع ؟ والعمود السابع خاص بالـ ID حسب فهمي لهذا الكود

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(6).Text, Conn) 


ثانيا
ما المقصود من هذا الكود

PHP كود :

Dim upd As Integer = int - (TextBox92.Text) 


ياليت يتم شرح سطر سطر لهذا الكود وما الغرض منه
حتى أتمكن من إفادتك لأني الأن أشوف الكود كله داخل في بعض ومتضارب في القيم

[Easy4ever]

انا حملت الأن المثال الموجود في أول مشاركه لك وسأقوم برأيته وتعني فيه

حتى أتمكن من فهم الكود وحل المشكله

أنتظر ..

[Easy4ever]

أنظر المرفق
عدلت المثال إللي حاطه في المشاركة الأولى

في البداية أحب ان أوضح لك أني لم أجد حقل رقمي لكي أتعامل معه بالخصم سوى الحقل MobileNumber فستغليته

وكنت أبي اسحب القاعدة وأرفقها مع المثال لاكن رفض النسخ يقول انه متصل عقدني

المهم انت حمل المثال واستخدم قاعدة البيانات إللي معك إللي أرفقته لنا في مشاركتك الأولى

ضفت لك زر آخر يعمل على زيادة القيمة بدل من الخصم حتى تتمكن من التجربه

الكود جربته بعد ما عدلته وشغال 100%

[shado1796]

Easy 4ever كتب :الكود كله أحس ان تركيبه خطأ :confused:

أولا
أنت عدلت إللي قلته لك
وعدلت إيضا هذا الكود

PHP كود :

cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(6).Text 


خليته ياخذ القيمة من العمود السابع ؟ والعمود السابع خاص بالـ ID حسب فهمي لهذا الكود

PHP كود :

Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & ListView1.Items.Item(i).SubItems(6).Text, Conn) 


ثانيا
ما المقصود من هذا الكود

PHP كود :

Dim upd As Integer = int - (TextBox92.Text) 


ياليت يتم شرح سطر سطر لهذا الكود وما الغرض منه
حتى أتمكن من إفادتك لأني الأن أشوف الكود كله داخل في بعض ومتضارب في القيم

اخي غلط في كتابت الكود في المشاركة بل هو كذا

كود :

On Error Resume Next
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).Selected = True Then
                Dim int As Integer = ListView1.Items.Item(i).SubItems(6).Text
                Dim upd As Integer = int - (TextBox92.Text)
                ListView1.Items.Item(i).SubItems(6).Text = upd
                '\\\\\\\\\\
                Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=@ID", Conn)


                cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(0).Text

                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm.ExecuteNonQuery()
                cm.Parameters.Clear()
                '//////////
            End If
        Next

ياخذ ال ID من العامود الاول 0 وطبعا ما انحلت المشكلة


ثانيا ما اقصده بالكود

كود :

Dim upd As Integer = int - (TextBox92.Text)

هو ان يخصم الرقم الموجود في TextBox92.Text من الليست فيو مثلا في SubItems(6)

[Easy4ever]

تركيبة السؤال خطأ اساسا وطريقة التعديل بعد فيه أخطأ

أنظر للمثال إللي قمت بتعديله وقارنه بالموجود لديك

[shado1796]

Easy 4ever كتب :تركيبة السؤال خطأ اساسا وطريقة التعديل بعد فيه أخطأ

أنظر للمثال إللي قمت بتعديله وقارنه بالموجود لديك

جاري التجربة ،،

[shado1796]

Easy 4ever كتب :تركيبة السؤال خطأ اساسا وطريقة التعديل بعد فيه أخطأ

أنظر للمثال إللي قمت بتعديله وقارنه بالموجود لديك

ماشاء الله تبارك الله عليك ،،
انا حاولت اسويها تعبت وانت حليتها ،،،
انحلت المشكلة الله يوفقك يا رب
استخدمت هذا الكود من مثالك

كود :

On Error Resume Next
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).SubItems(0).Text = TextBox93.Text Then
                ListView1.Items.Item(i).SubItems(6).Text = Val(ListView1.Items.Item(i).SubItems(6).Text) [color=#FF0000]- [/color]Val(TextBox92.Text)

                Dim cm As New SqlCommand("update table1 set Rest=@Rest where ID=" & TextBox93.Text, Conn)
                cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = ListView1.Items.Item(i).SubItems(6).Text
                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm.ExecuteNonQuery()
                cm.Parameters.Clear()
                '//////////
                Me.RefreshListView()
                Exit Sub
            End If
Next

وطبعا الجمع يتغير من علامة الاشارة الملونه بالاحمر