[shado1796]

up up up up

[just.coder]

فكرتى بتعمد انك هتدوس دبل كليك ع الاسم الى عايز تغير الرقم بتاعو

اتمنى ان يكون هذا ما تريد

كود :

Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        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
            End If
        Next
    End Sub

[shado1796]

just.coder كتب :فكرتى بتعمد انك هتدوس دبل كليك ع الاسم الى عايز تغير الرقم بتاعو

اتمنى ان يكون هذا ما تريد

كود :

Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        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
            End If
        Next
    End Sub

شكرا اخي ،،لكن الكود لا يتم حفظ التعديل في قاعدة البيانات ،، حاولت اضيف هذا الكود ولم يضبط

كود :

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

        cm.Parameters.AddWithValue("@ID", SqlDbType.VarChar).Value = (TextBox3.Text).ToString

    cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = (TextBox2.Text).ToString

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

[just.coder]

حب حاول تفهمنى بالظبط TextBox3.Text مكتوب فيها و TextBox2.Text مكتوب فيها اى

[shado1796]

just.coder كتب :حب حاول تفهمنى بالظبط TextBox3.Text مكتوب فيها و TextBox2.Text مكتوب فيها اى

[COLOR="#FF0000"]عفوا هذا التعديل

كود :

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


    cm.Parameters.AddWithValue("@Rest", SqlDbType.VarChar).Value = (TextBox2.Text).ToString

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

شكرا لك[/COLOR]

،،

[just.coder]

(TextBox2.Text).ToString

دى المفروض ان هيا قيمة نمبر بعد ما تم طرح الرقم منها ؟

[shado1796]

just.coder كتب :(TextBox2.Text).ToString

دى المفروض ان هيا قيمة نمبر بعد ما تم طرح الرقم منها ؟

نعم اخي ،،، @Rest هو رقم مثلا 100 ،،، نريد ان نطرح منه مح حفظ قيمة الناتج

[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

[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

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

[shado1796]

up up up up