[hafid33]

السلام عليكم هل هناك طريقه لنقصان عدد في خانه معينه datagridview توجد في form1

من عدد في في خانه معينه datagridview توجد في form2

علما ان قاعدة البيانات ربطتها بهدا الشكل 

[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 
عفواً أخي سؤال غير واضح لكن الذي فهمته أنك تريد إنقاص أو زيادة قيمة خلية في الداتاقريدفيو بقيمة +1 أو -1  

في حالة +1 

1+( datagridview1.rows(i).cells(2).tostring= val( datagridview1.rows(i).cells(2).tostring

في حالة -1 

1-( datagridview1.rows(i).cells(2).tostring= val( datagridview1.rows(i).cells(2).tostring

أتمنى أن يكون هذا المطلوب

دمتم بود 
لكم جزيل الشكر

[hafid33]

(08-03-22, 12:30 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
عفواً أخي سؤال غير واضح لكن الذي فهمته أنك تريد إنقاص أو زيادة قيمة خلية في الداتاقريدفيو بقيمة +1 أو -1  

في حالة +1 

1+( datagridview1.rows(i).cells(2).tostring= val( datagridview1.rows(i).cells(2).tostring

في حالة -1 

1-( datagridview1.rows(i).cells(2).tostring= val( datagridview1.rows(i).cells(2).tostring

أتمنى أن يكون هذا المطلوب

دمتم بود 
لكم جزيل الشكر

شكرا علي الرد اخي نعم هدا ما اريده لكن ليس في نفس الفورم بل في فورم 2
بمعني اني اريد نقصان خليه في datagrid في فورم الاول من خليه في datagrid في فورم 2

---

يعني اريد نقصان هده الخانه من form2 من الخانه في form3

[SaedAmer]

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim posNN = DataGridView2.Rows(poss).Cells(0).Value
Dim posPP = DataGridView2.Rows(poss).Cells(3).Value
Dim xx1,xx2 as string

Try
           For i = 0 To DataGridView1.Rows.Count - 1

               Dim x(DataGridView1.ColumnCount) As String
               For ii = 0 To DataGridView1.ColumnCount
                   Try
                       x(ii) = DataGridView1.Rows(i).Cells(ii).Value.ToString
                       Application.DoEvents()
                   Catch
                   End Try
               Next

               Application.DoEvents()
               If x(0) = posNN Then

                   xx1 = x(6)



               End If




           Next
       Catch ex As Exception
       End Try

xx2 = val(posPP) - val(xx1)

[hafid33]

(08-03-22, 06:38 PM)SaedAmer كتب :

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim posNN = DataGridView2.Rows(poss).Cells(0).Value
Dim posPP = DataGridView2.Rows(poss).Cells(3).Value
Dim xx1,xx2 as string

Try
           For i = 0 To DataGridView1.Rows.Count - 1

               Dim x(DataGridView1.ColumnCount) As String
               For ii = 0 To DataGridView1.ColumnCount
                   Try
                       x(ii) = DataGridView1.Rows(i).Cells(ii).Value.ToString
                       Application.DoEvents()
                   Catch
                   End Try
               Next

               Application.DoEvents()
               If x(0) = posNN Then

                   xx1 = x(6)



               End If




           Next
       Catch ex As Exception
       End Try

xx2 = val(posPP) - val(xx1)

اخي اين اضع هدا الكود هل في الفورم الاول او الثاني واين بالضبط هل في حدث الform3_load
وهل تتم العميل لوحده يعني اول ما اشغل العمل تتم العمليه !!!

[SaedAmer]

(08-03-22, 07:10 PM)hafid33 كتب :

(08-03-22, 06:38 PM)SaedAmer كتب :

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim posNN = DataGridView2.Rows(poss).Cells(0).Value
Dim posPP = DataGridView2.Rows(poss).Cells(3).Value
Dim xx1,xx2 as string

Try
           For i = 0 To DataGridView1.Rows.Count - 1

               Dim x(DataGridView1.ColumnCount) As String
               For ii = 0 To DataGridView1.ColumnCount
                   Try
                       x(ii) = DataGridView1.Rows(i).Cells(ii).Value.ToString
                       Application.DoEvents()
                   Catch
                   End Try
               Next

               Application.DoEvents()
               If x(0) = posNN Then

                   xx1 = x(6)



               End If




           Next
       Catch ex As Exception
       End Try

xx2 = val(posPP) - val(xx1)

اخي اين اضع هدا الكود هل في الفورم الاول او الثاني واين بالضبط هل في حدث الform3_load
وهل تتم العميل لوحده يعني اول ما اشغل العمل تتم العمليه !!!

هذا الكود عبارة عن جلب قيمة الصابون من form 2 و جلب قيمة prix_vente عن طريق رمز الكود و num pro و طرحهم من بعض
هذا الكود يتم وضعه في button او datagrid button في form 2

[hafid33]

(08-03-22, 07:16 PM)SaedAmer كتب :

(08-03-22, 07:10 PM)hafid33 كتب :

(08-03-22, 06:38 PM)SaedAmer كتب :

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim posNN = DataGridView2.Rows(poss).Cells(0).Value
Dim posPP = DataGridView2.Rows(poss).Cells(3).Value
Dim xx1,xx2 as string

Try
           For i = 0 To DataGridView1.Rows.Count - 1

               Dim x(DataGridView1.ColumnCount) As String
               For ii = 0 To DataGridView1.ColumnCount
                   Try
                       x(ii) = DataGridView1.Rows(i).Cells(ii).Value.ToString
                       Application.DoEvents()
                   Catch
                   End Try
               Next

               Application.DoEvents()
               If x(0) = posNN Then

                   xx1 = x(6)



               End If




           Next
       Catch ex As Exception
       End Try

xx2 = val(posPP) - val(xx1)

اخي اين اضع هدا الكود هل في الفورم الاول او الثاني واين بالضبط هل في حدث الform3_load
وهل تتم العميل لوحده يعني اول ما اشغل العمل تتم العمليه !!!

هذا الكود عبارة عن جلب قيمة الصابون من form 2 و جلب قيمة prix_vente عن طريق رمز الكود و num pro و طرحهم من بعض
هذا الكود يتم وضعه في button او datagrid button في form 2

لم يعمل اخي حتي مع استعمالي للزر

---

اخي انا استعمل قاعدة بيانات ولا املء datagrid يدويا الكود لم يعمل ما اريده هو كالتالي
مثلا لدي مخزون من السلع يتم بيعه عباره عن 30 حبه واريد ان انقص منها اي منتوج فردي
ابيعه في المحل مثلا بمعني نقصان خليه في فورم 1 في dgv من خليه في dgv في فورم 2
و التغييرات تحدث في قاعدة البيانات access باستعمال زر

---