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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 237 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 523 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 174 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 448 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 393 15-04-17, 04:13 AM
آخر رد: sendbad100
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 298 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 352 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 658 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 407 10-07-16, 12:26 PM
آخر رد: عمور2016
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 404 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor

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


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