جرب حب حط الكود دا ف حدث موس دبل كليك ف لست فيو
كود :
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