[حريف برمجة]

(23-04-18, 03:10 PM)nabil.1710 كتب : السلام عليكم اخوتي

لدي DataGridView1 و بها 2 من العمود
العمود الاول : اسم الصنف
العمود الثاني : قيمة الصنف
 
اريد نقل بيانات الاعمدة من DataGridView1 الى DataGridView2
 
ولكن اريد قيمة العمود الثاني و اسمه (قيمة الصنف ) يتم نقله بالسالب
 
بمعنا
 


         من                                                                                         الى
DataGridView1                                                                  DataGridView2
 
اسم الصنف          قيمة الصنف                                         اسم الصنف          قيمة الصنف
 
بنطلون جينز                250                                                بنطلون جينز                -250
قميص لكرا                  75                                                  قميص لكرا                  -75


و شكرا لكم

هذا كود مقتبس من مثال الأخ سعود ينقل لك السجل بعد النقر عليه في الداتا قريد فيو 1 إلى الداتا قريد فيو 2 ويتم حذفه من الداتا قريد فيو 1 مع تغيير الإشارة إلى سالب والعكس .

   

هذا كود الفورم لود :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       DataGridView1.Rows.Add("Saud", "10")
       DataGridView1.Rows.Add("Mady", "20")
       DataGridView1.Rows.Add("Ali", "25")
       DataGridView1.Rows.Add("Mohammad", "30")
       DataGridView1.Rows.Add("Majed", "35")
       DataGridView1.Rows.Add("Abdullah", "40")
       DataGridView1.Rows.Add("Khaled", "48")
       DataGridView1.Rows.Add("Hmod", "52")
   End Sub

وهذا كود الداتا قريد فيو 1 حدث CellMouseClick

كود :

Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
       DataGridView2.Rows.Add(DataGridView1.Rows(e.RowIndex).Cells(0).Value, -Val(DataGridView1.Rows(e.RowIndex).Cells(1).Value))

       DataGridView1.Rows.RemoveAt(e.RowIndex)
   End Sub

وهذا كود الداتا قريد فيو 2 حدث CellMouseClick

كود :

Private Sub DataGridView2_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView2.CellMouseClick
       DataGridView1.Rows.Add(DataGridView2.Rows(e.RowIndex).Cells(0).Value, Math.Abs(Val(DataGridView2.Rows(e.RowIndex).Cells(1).Value)))

       DataGridView2.Rows.RemoveAt(e.RowIndex)
   End Sub