[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

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