تقييم الموضوع :
  • 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 م ب / التحميلات : 43)
الرد }}}}
تم الشكر بواسطة: 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
مثال جميل
ماذ لوكان التصدير الى اكسل او فلكس اقريد بدل اكتف ريبورت ؟
ولكم الشكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 1 40 13-12-17, 12:34 AM
آخر رد: Ahmed_Mansoor
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 294 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 574 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 211 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 489 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 454 15-04-17, 04:13 AM
آخر رد: sendbad100
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 340 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 380 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 755 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 435 10-07-16, 12:26 PM
آخر رد: عمور2016

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


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