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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيف اقارن بين قيمه سابقه وقمه لاحقة في خليه في الداتا جريد فيو (/showthread.php?tid=20015)



كيف اقارن بين قيمه سابقه وقمه لاحقة في خليه في الداتا جريد فيو - samawi - 15-04-17

السلام عليكم 
اخواتي الكرام عندي داتا جريد فيو احد اعمتدها اسمة الكمية وخاصية التعديل فعاله كيف اقارن بين القيمه السابقه و القيمه التي تم تعديلها اذا كانت اصغر يقبلها واذا كانت اكبر يرفظها وينبه المستخدم يرساله 

او ماهو حدث التعديل في خليه في الداتا جريد فيو 

ساعدوني وفقكم الله 



RE: كيف اقارن بين قيمه سابقه وقمه لاحقة في خليه في الداتا جريد فيو - khodor1985 - 15-04-17

أرفق المشروع للتعديل عليه وشكرا


RE: كيف اقارن بين قيمه سابقه وقمه لاحقة في خليه في الداتا جريد فيو - samawi - 15-04-17

(15-04-17, 02:46 AM)khodor1985 كتب : أرفق المشروع للتعديل عليه وشكرا

لم اكتب شي في هذا الموضوع 
 
كل ما اريد هو حدث التعديل

تم الحل شكرا لك اخي

Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
Dim n As Integer = DataGridView1.CurrentRow.Cells(3).Value
If n > firstquantite Then
MsgBox("لقد ادخلت كمية اكبر من الموجود في المخزن الرجاء ادخال كميه مناسبة", MsgBoxStyle.Critical)
DataGridView1.CurrentRow.Cells(3).Value = firstquantite
n = 0
End If
MsgBox(n)
End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

DataGridView1.Columns("code_article").ReadOnly = True
DataGridView1.Columns("designation").ReadOnly = True
DataGridView1.Columns("prix_achat").ReadOnly = True
DataGridView1.Columns("date").ReadOnly = True

Dim pos As Integer = Me.DataGridView1.CurrentRow.Index
firstquantite = DataGridView1.Rows(pos).Cells(3).Value

End Sub