أرجو من حضراتكم مساعدتي حيث ان لدي قاعدة بيانات اقوم باستدعاء حقل EmpId وعرض بياناته في list1 وكله تمام بس عند عمل تصفيه وطباعة ما يتم اختياره خصوصا اكثر من اختيار لا يظهر شيء ولو اختر عنصر واحد يظهر التقرير....
فين الخطأ في الكود ده
Dim x As Integer
For x = 0 To List1.ListCount - 1
If List1.Selected(x) = True Then sql = "select EmpID from EmpTable where EmpId = '" & List1.Selected(x) & "'"
End If
Next x
ActiveReport1.DataControl1.Source = (sql)
ActiveReport1.Show
ActiveReport1.Refresh
For x = 0 To List1.ListCount - 1 If List1.Selected(x) = True Then If Trim$(sql) = "" Then sql = "select EmpID from EmpTable where EmpId ='" & List1.List(x) & "'" Else sql = sql & " Or EmpId ='" & List1.List(x) & "'" End If End If Next x
25-01-16, 12:07 AM (آخر تعديل لهذه المشاركة : 25-01-16, 12:10 AM {2} بواسطة k_medhat.)
شكرا استاذ أحمد ولكن برده الكود فيه حاجة خطأ لإنه بيطلع كل النتيجة غير القيم اللي انا اختارتها من الليست
ومرفق لحضراتكم المثال اللي طلع عيني يارب تفيدوني
يا جماعة خلاص
فعلا الكود اللي كتبه الاستاذ احمد منصور صح وشغال ميه ميه
كبيـــــــــــــــــــــــــــــــر ومعلم
ألف شكر ألف شكر يا استاذ أحمد