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


الملفات المرفقة
.rar   ListSelected_1.rar (الحجم : 28.96 ك ب / التحميلات : 87)
الرد }}}
تم الشكر بواسطة: 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] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,789 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,402 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] المساعدة في تقريب الارقام عمور2016 5 3,308 30-01-19, 07:44 PM
آخر رد: sendbad100
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 2,851 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,819 10-05-18, 04:44 AM
آخر رد: حامد محمد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 2,685 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,505 23-02-18, 11:44 PM
آخر رد: awidan76
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 1,986 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  [مثال] المساعدة - باعادة ترقيم الداتا ريبورت سامى 4 2,562 30-01-18, 03:24 PM
آخر رد: سامى
  [سؤال] المساعدة - بكتابة الأكواد emanhas 2 1,391 14-01-18, 07:33 PM
آخر رد: Amir_Alzubidy

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


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