[awidan76]

اخواني الاعزاء تحية طيبة 

لقد قمت بتعديل عرض بيانات الاصناف بشرط رقم الفاتورة  وظهرت ولكن ليست كل الاصناف التي تنتمي للفاتورة , يقوم باختيارة صنف واحد فقط ويعرضة وانا اريده ان يعرض كل للاصناف الخاصة بالفاتورة 

عند الاضافة 
   

وعند عرض بيانات الفاتورة رقم واحد 
   

والكود المستخدم هو 
   

PHP كود :

Private Sub Text1_Change()
Dim I As Integer
For I = 1 To fox.Rows - 1

Set RSDataCome = New ADODB.Recordset
If RSDataCome.State = adStateOpen Then RSDataCome.Close
RSDataCome.CursorLocation = adUseClient
RSDataCome.Open "SELECT Store.iD,Store.chs,Store.noo,InOUTASNAfTB.Qty From Store,InOUTASNAfTB where Store.iD=InOUTASNAfTB.ID and InOUTASNAfTB.FtoraID LIKE '%" & UCase(Text1.Text) & "%'", DB, adOpenStatic, adLockOptimistic
           If RSDataCome.RecordCount > 0 Then
           fox.TextMatrix(I, 0) = RSDataCome!Id 'رقم الصنف
           fox.TextMatrix(I, 1) = RSDataCome!chs ' اسم الصنف
           fox.TextMatrix(I, 2) = RSDataCome!noo + RSDataCome!Qty ' عدد الاصناف
           fox.TextMatrix(I, 3) = RSDataCome!Qty 'الكمية
           fox.TextMatrix(I, 4) = fox.TextMatrix(I, 2) - fox.TextMatrix(I, 3)
End If
Next

End Sub 


فما مشكلة عدم ظهور كل الاصناف التي تخص الفاتورة رقم 1 

وشكراً