+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 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
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
مثال جميل
ماذ لوكان التصدير الى اكسل او فلكس اقريد بدل اكتف ريبورت ؟
ولكم الشكر