تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected
#1
أرجو من حضراتكم مساعدتي حيث ان لدي قاعدة بيانات اقوم باستدعاء حقل 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
الرد
تم الشكر بواسطة:
#2
ارفق مثال للتعديل عليه
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة: Ahmed_Mansoor
#3
أهلا أخي الكريم , هذا تعديل الكود :

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 
الرد
تم الشكر بواسطة: k_medhat , awidan76 , VB_Local
#4
شكرا استاذ أحمد ولكن برده الكود فيه حاجة خطأ لإنه بيطلع كل النتيجة غير القيم اللي انا اختارتها من الليست
ومرفق لحضراتكم المثال اللي طلع عيني يارب تفيدوني

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


الملفات المرفقة
.rar   ListSelected.rar (الحجم : 3.4 م ب / التحميلات : 55)
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#5
أهلا أخي الكريم , هذا المثال بعد التعديل .


الملفات المرفقة
.rar   ListSelected_1.rar (الحجم : 28.96 ك ب / التحميلات : 73)
الرد
تم الشكر بواسطة: ahmedabdelaliem , awidan76
#6
الله يجزيك خير اخي الغالي احمد منصور
اللي يعجبنا فينا فيك حب العطاء
تذكرني باخي الغالي sniper.ps
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة: VB_Local , Ahmed_Mansoor
#7
مثال جميل
ماذ لوكان التصدير الى اكسل او فلكس اقريد بدل اكتف ريبورت ؟
ولكم الشكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 122 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 217 10-05-18, 04:44 AM
آخر رد: حامد محمد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 219 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 118 23-02-18, 11:44 PM
آخر رد: awidan76
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 75 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  [مثال] المساعدة - باعادة ترقيم الداتا ريبورت سامى 4 110 30-01-18, 03:24 PM
آخر رد: سامى
  المساعدة - في تجزئة النص hamedi2727 7 280 19-12-17, 07:20 PM
آخر رد: Amir_Alzubidy
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 418 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 905 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 312 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم