[shado1796]

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

اخي اعتذرعن التأخير لكن كنت اجرب واحاول حلها لكن لم ينفع الكود لا يحفظ التعديل