01-07-22, 11:34 AM
على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورة
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. :
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. :
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :
PHP كود :
Dim i As Integer
With XXXGrid1 ' اسم جدول العرض
If .Rows = 1 Then
' اذا كان عدد الاسطر بالجدول يساوي واحد أي سطر العناوين فقط نقم بإضافة سجل كامل
.AddItem X0, x1, X2, X3, X4
Else
i = 0
Do Until i = .Rows
i = i + 1
' رقم المادة في الليبل الخاص مشابه لرقم مادة في سطر ما بالجدول
If .TextMatrix(i, 0) = labItemNo1.Caption Then
' مثلا عمود الكمية هو العمود الخامس نزيد على الكمية واحد أو الكمية الموجودة بتكست الكمية قبل الاضافة
.TextMatrix(i, 4) = Val(.TextMatrix(i, 4)) + Val(txtQty1.Text)
' حقل المجموع يصبح حاصل جداء حقل الكمية بعد التعديل بحقل السعر أو التكلفة وهكذا
.TextMatrix(i, 6) = Format(.TextMatrix(i, 3) * .TextMatrix(i, 4), "0.00")
Exit Do ' ثم الخروج من الحلقة بسبب العثور على الهدف وانتهاء التعديل
ElseIf i = .Rows - 1 Then
' واذا انتهت الحلقة من السطر الاخير ولم تعثر على رقم مادة مشابه تقم باضافة سجل كامل
.AddItem X0, x1, X2, X3, X4
Exit Do ' تأكيد الخروج من الحلقة مع العلم بأن البرنامج سيخرج منها اساساً لانتهاء البحث دون نتيجة
End If
Loop
End If
End With
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
