منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected (/showthread.php?tid=14501)



أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - k_medhat - 24-01-16

أرجو من حضراتكم مساعدتي حيث ان لدي قاعدة بيانات اقوم باستدعاء حقل 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


RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - awidan76 - 24-01-16

ارفق مثال للتعديل عليه


RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - Ahmed_Mansoor - 24-01-16

أهلا أخي الكريم , هذا تعديل الكود :

PHP كود :
Dim x As Integer
Dim sql 
As String

For 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

If Trim$(sql) = "" Then Exit Sub

ActiveReport1
.DataControl1.Source sql
ActiveReport1
.Show
ActiveReport1
.Refresh 



RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - k_medhat - 25-01-16

شكرا استاذ أحمد ولكن برده الكود فيه حاجة خطأ لإنه بيطلع كل النتيجة غير القيم اللي انا اختارتها من الليست
ومرفق لحضراتكم المثال اللي طلع عيني يارب تفيدوني

يا جماعة خلاص
فعلا الكود اللي كتبه الاستاذ احمد منصور صح وشغال ميه ميه
كبيـــــــــــــــــــــــــــــــر ومعلم
ألف شكر ألف شكر يا استاذ أحمد


RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - Ahmed_Mansoor - 25-01-16

أهلا أخي الكريم , هذا المثال بعد التعديل .


RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - awidan76 - 25-01-16

الله يجزيك خير اخي الغالي احمد منصور
اللي يعجبنا فينا فيك حب العطاء
تذكرني باخي الغالي sniper.ps


RE: أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected - gadr - 04-02-16

مثال جميل
ماذ لوكان التصدير الى اكسل او فلكس اقريد بدل اكتف ريبورت ؟
ولكم الشكر