منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تنقيص قيمة عدد من Listview من Colums - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تنقيص قيمة عدد من Listview من Colums (/showthread.php?tid=7976)

الصفحات: 1 2 3 4

تنقيص قيمة عدد من Listview من Colums - shado1796 - 17-03-13

up up up up

تنقيص قيمة عدد من Listview من Colums - just.coder - 18-03-13

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

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

كود :
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


تنقيص قيمة عدد من Listview من Colums - shado1796 - 18-03-13

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()

تنقيص قيمة عدد من Listview من Colums - just.coder - 18-03-13

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

تنقيص قيمة عدد من Listview من Colums - shado1796 - 18-03-13

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]
 ،،

تنقيص قيمة عدد من Listview من Colums - just.coder - 18-03-13

(TextBox2.Text).ToString

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

تنقيص قيمة عدد من Listview من Colums - shado1796 - 18-03-13

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

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


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


تنقيص قيمة عدد من Listview من Colums - just.coder - 18-03-13

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

كود :
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


تنقيص قيمة عدد من Listview من Colums - shado1796 - 18-03-13

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



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


تنقيص قيمة عدد من Listview من Colums - shado1796 - 19-03-13

up up up up