[nabil.1710]

(25-04-18, 07:45 AM)حريف برمجة كتب :

(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

شكرا  لك اخي ولكن الفكرة المطلوبة ليس بنفس الصورة البيانات يتم نقلها كتلة واحدة

و حقل القيمة يتم نقله بالسالب

---

اخي حريف برمجة
انا ارسلت  لك مثال يعمل بقاعدة بيانات ارجوا التعديل على حقل القيمة  المطلوبة ليتم نقلها بالسالب و شكرا لك

---

(23-04-18, 08:59 PM)سعود كتب : مثال بسيط من دون قاعدة بيانات.
نسخ محتويات الصفوف من Datagridview1 الى Datagridview2 مع عكس القيمة من موجب الى سالب حسبما فهمته من السؤال.

شكرا لك اخي سعود 

الفكرة المطلوبة غير ذلك 

هذا مثال بقاعدة بيانات اريد التعديل عليه

وشكرا لك اخي