تقييم الموضوع :
  • 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)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة: 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 م ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#5
أهلا أخي الكريم , هذا المثال بعد التعديل .


الملفات المرفقة
.rar   ListSelected_1.rar (الحجم : 28.96 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem , awidan76
#6
الله يجزيك خير اخي الغالي احمد منصور
اللي يعجبنا فينا فيك حب العطاء
تذكرني باخي الغالي sniper.ps
اعز الناس واعز معلمين :
1)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة: VB_Local , Ahmed_Mansoor
#7
مثال جميل
ماذ لوكان التصدير الى اكسل او فلكس اقريد بدل اكتف ريبورت ؟
ولكم الشكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 106 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 113 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 145 10-07-16, 12:26 PM
آخر رد: عمور2016
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 168 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  [سؤال] استخراج قيم عمود فى تكست بوكس ABO.BANCIANA 2 284 21-02-16, 08:58 PM
آخر رد: ahmedabdelaliem
  الرجاء المساعدة في كود التاريخ wolf1120 4 723 31-12-15, 01:16 AM
آخر رد: awidan76
  [سؤال] أضافة سطر جديد فى التيكست بوكس copy77 4 573 27-11-15, 06:36 AM
آخر رد: copy77
  [VB.NET] الرجاء المساعدة على محمود 1 176 14-10-15, 08:05 PM
آخر رد: vb6_coder
  [كود] المساعدة في كود لاضافة التاريخ والمرتبات صهيب محمد 2 417 10-10-15, 09:53 PM
آخر رد: محمد العبيدي
Photo [vb6.0] المساعدة في انهاء مشروع محمود إمام 11 666 08-10-15, 11:54 PM
آخر رد: محمود إمام

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


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