[asemshahen5]

PHP كود :

'بسم الله الرحمن الرحيم نبدء'
'الغ fox.Rows = 14'
'ضع بدل عنها'
fox.Rows = 0

'ضع هذا الكود في زر الحفظ قبل اللوب'
'إذا كان الجدول فارغ'
Dim flag As Boolean
Dim r, c As Integer
  With fox
  flag = True
    For r = 1 To .Rows - 1 
      For c = 1 To .Cols - 1
        If .TextMatrix(r, c) <> vbNullString Then
        flag = False
        End If
      Next c
    Next r
  End With
  If flag = True Then
  MsgBox "لا يمكن حفظ الفاتورة الجدول فارغ"
  Exit Sub
  End If
'تفقد اذا كان هناك تكست بوكس فارغ في الفورم'
Dim X As Integer
For X = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(X) Is TextBox Then
If Me.Controls(X).Text = "" Then
MsgBox "الرجاء تعبئة جميع الحقول النصية"
Exit Sub
End If
End If
Next X
'كود الحفظ'
'بعد Next الخاص بالحفظ ضع End If'


'عدل كود Timer2 ليكون كالتالي'
Private Sub Timer2_Timer()
If Getasynckeystate(120) Then
ItemsID = ""
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
If ItemsID > 0 Then
fox.Rows = fox.Rows + 1
End If
End If
End Sub 


---

تعديل إضافي للتايمر :

PHP كود :

Private Sub Timer2_Timer()
If Getasynckeystate(120) Then
ItemsID = ""
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
If ItemsID > 0 Then
fox.Rows = fox.Rows + 1
End If
End If
If fox.TextMatrix(fox.Rows - 1, 0) = "" And fox.TextMatrix(fox.Rows - 2, 0) = "" Then
fox.RemoveItem (fox.Rows - 1)
End If
End Sub 


---

و اذا اردت ضع الكود التالي في حدث الدبل كليك بـ Fox اي بالداتا غريد الخاص بالأصناف كالتالي :

PHP كود :

Private Sub fox_DblClick()
ItemsID = 0
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
If ItemsID > 0 Then
fox.Rows = fox.Rows + 1
End If
End Sub 


تعديل أخير :

PHP كود :

Private Sub fox_DblClick()
ItemsID = 0
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
If ItemsID > 0 Then
fox.Rows = fox.Rows + 1
End If
fox.Refresh
fox.Row = fox.Rows - 1
fox.Col = 0
fox.RowSel = fox.Rows - 1
End Sub