تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] فلترة listview مشكلة غريبة
#1
Sad 
السلام عليكم 
لدي مشكلة .. وأرجو من يمكنه الحل لا يبخل علي .. 
قمت بعمل مشروع استخراج id و عدد الاعضاء الخاص بالجروبات عن طريق البحث بالأسم تمام ؟ 
لدي مشكلة صغيرة وبقالي ايام سهران ولم اجد اي حل .. !!! 
أريد أن أضيف خاصية الفلترة في الليست فيو .. 
في المثال الخاص بي هناك عامودين واحد خاص بعدد الاعضاء والاخر بال id 
عند عمل فلترة اريد كود يمسح جميع الجروبات التي عدد اعضائها مثلا أقل من 15.618 
ارجو المساعدة واسف لو طولة عليكم .. 
وربنا يبارك للي هيساعدني مقدماً ... 

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله
على الارجح بأن الليست فيو واضح انها Dot.net
لكن على العموم :

كود البحث عن المجموعات التي عدد الاعضاء فيها اقل من  15.618

PHP كود :
Dim X as Integer
Dim SQL 
as String
X
=15.618
SQL 
"SELECT * FROM [Groups] WHERE [Member] >= " "" 'SQL 

بالنسبة لحذف المجموعات التي عدد الاعضاء فيها اقل من 15.618

PHP كود :
Dim X as Integer
X
=15.618
db
.Execute "Delete From [Groups] Where [Member]>= " ""  'Delete Record'
الرد }}}
#3
اخي الكريم ارفق مثال لكي يتم التعديل عليه
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#4
حياك الله اخي

جرب التالي

PHP كود :
Private Sub Command1_Click()

 
 Dim Stuff() As String
  Dim Stu
() As String
    Dim i 
As Long

     Stuff 
Split(GetText(Text2.TextText6.TextText1.Text), vbNullChar)
 
     Stu Split(GetText(Text2.TextText8.TextText7.Text), vbNullChar)
 
       For i 0 To UBound(Stuff)
 
           If Val(Stuff(i)) > 15.618 Then
            With list1
.ListItems.Add
                
.Text Stu(i)
 
               .SubItems(1) = Stuff(i)
 
   
            End With
         End 
If
 
       Next i
End Sub 
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 277 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 242 23-10-23, 12:11 AM
آخر رد: Taha Okla
  السلام عليكم اخوانى واحبابى اساتذتى الكرام مشكلة out of memory mhareek 2 277 12-10-23, 01:40 PM
آخر رد: Taha Okla
  [سؤال] انا اواجه مشكلة عند قيامي بتكوين ملف ال exe hasgaeb 2 355 05-08-23, 01:29 PM
آخر رد: hasgaeb
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 9 2,854 25-11-22, 12:23 AM
آخر رد: اسلام الكبابى
  [سؤال] حل مشكلة فيصل الحطامي 1 519 25-10-22, 03:04 PM
آخر رد: Taha Okla
  مشكلة عند حذف عنصر hannileo 1 529 07-09-22, 02:12 AM
آخر رد: Taha Okla
  حل مشكلة امتلأ قاعدة بيانات أكسس مصمم هاوي 9 1,288 03-07-22, 12:19 PM
آخر رد: ahmedabdelaliem
  مشكلة على ويندوز7 ABO.BANCIANA 17 9,684 28-04-22, 06:07 AM
آخر رد: alhoor
  مشكلة في بيانات تقرير اكتيف ريبورت مصمم هاوي 2 1,027 26-02-22, 07:35 PM
آخر رد: مصمم هاوي

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


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