03-06-20, 05:52 AM
(آخر تعديل لهذه المشاركة : 03-06-20, 06:16 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الكريم اليك هذا الكود سيتم التحقق من الكمية واذا كانت اكبر ستظهر رسالة وعند الضغط عليها
نفرغ الخلية ثم نعطي امرا باختيار الخلية عبر تفعيل مفاتيح الاسهم بالكود
ملاحظة: انا افترضت خلية المخزن اندكس 2 والكمية المطلوبة اندكس 3 يمكنك التعديل وفق اندكس الخلايا التي لديك
اخي الكريم اليك هذا الكود سيتم التحقق من الكمية واذا كانت اكبر ستظهر رسالة وعند الضغط عليها
نفرغ الخلية ثم نعطي امرا باختيار الخلية عبر تفعيل مفاتيح الاسهم بالكود
كود :
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
' تعريف متغير رقمي يأخذ اندكس الصف الحالي
Dim dd As Integer = DataGridView1.CurrentRow.Index
For q As Integer = 0 To DataGridView1.Rows.Count - 1
Dim IQty, SQty As Double
IQty = DataGridView1.CurrentRow.Cells(2).Value
SQty = DataGridView1.CurrentRow.Cells(3).Value
If SQty > IQty Then
MsgBox("الكمية المطلوبة أكبر من الكمية المتاحة")
' تفريغ الخلية
DataGridView1.CurrentRow.Cells(3).Value = Nothing
' اختيار الخلية
DataGridView1.Rows(dd).Cells(3).Selected = True
'تحتاج الى تنفيذ السطر التالي مرة واحدة للرجوع الى السطر
SendKeys.Send("{UP}")
'تحتاج الى تنفيذ السطر التالي بعدد رقم الخلية
SendKeys.Send("{Right}")
SendKeys.Send("{Right}")
SendKeys.Send("{Right}")
' الخروج من الصب
Exit Sub
End If
Next
End Subاعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
