(01-07-22, 11:34 AM)Taha Okla كتب : على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورةساقوم بتجربه واعطيك النتيجه
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. :
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :
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
شكرا لك
PHP كود :
Private Sub Command1_Click()
هذا الكود الموجود في زر الاضافه'
CheckAll Me
If ck = True Then
Exit Sub
End If
With Grid
.Rows = .Rows + 1
.Row = .Rows - 1
.Col = 0
.Text = 1 + .Rows - 3
.Col = 1
.Text = CmbItemName
.Col = 2
.Text = txtQty(1)
.Col = 3
.Text = txtPrice
.Col = 4
.Text = txtQty(0)
.Col = 5
.Text = Val(PriceDlr * txtQty(0))
.Col = 6
.Text = Val(txtQty(0) * txtPrice)
'lblTotal.Caption = lblTotal.Caption + .Text
End With
ClearAllR Me, txtInNo, Combo1, Combo2
Text1.Text = 0
Text2.Text = 0
lblTotal.Caption = sum(6)
ck = False
End Sub
(01-07-22, 11:34 AM)Taha Okla كتب : على فرض أنك استخرجتي البيانات من جدول المواد من قاعدة البيانات وأصبحت جاهزة في المربعات التي فوق جدول العرض كما في الصورة
وأصبحت جاهزة للادخال لجدول العرض - فيكون زر الاضافة لجدول العرض يحتوي على الكود المناسب للتحقق ثم الاضافة --
فيكون الكود التالي هو كود مختصر للكود الذي ستضعينه بعد التعديل ليقوم هو بالاضافة .. :
أي هذا كود مختصر قومي بتعديله ليناسب برنامجك .. :
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
لقد كتبت لك الكود الموجود في زر أضف للقائمه
ارجوا ان تدمجه مع الكود الذي كتبته لي حتى نتجنب ظهور الاخطاء