[كود] طلب كود - نسخة قابلة للطباعة

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