تقييم الموضوع :
  • 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 
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up مشكلة دعم اللغة العربية المبرمج العتيق 4 211 17-05-17, 07:43 AM
آخر رد: alma2
  مشكلة فى حجم البرنامج عبد الرحمن على 6 111 05-05-17, 12:44 PM
آخر رد: عبد الرحمن على
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 80 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 231 16-04-17, 08:28 PM
آخر رد: larbihamri
  مشكلة في حفظ البيانات في الجدول مصمم هاوي 3 76 08-04-17, 07:34 AM
آخر رد: مصمم هاوي
  [vb6.0] مشكلة تعترضني كثيراً محمد ئوزبك 6 170 20-03-17, 11:32 PM
آخر رد: السيد الغالي
  مشكلة في Data environnement zine pef 15 339 19-03-17, 08:21 PM
آخر رد: sendbad100
  [كود] يقوم بعملية فلترة Microsoft Visual Basic 6.0 3 101 18-03-17, 07:42 PM
آخر رد: sendbad100
  [vb6.0] مشكلة باتجاه الأداة combobox بعد التنصيب البرنامج عبدالقادرعواد 2 89 15-03-17, 08:40 PM
آخر رد: عبدالقادرعواد
  مشكلة في كود الاضافة haiderkh 4 91 12-03-17, 11:50 PM
آخر رد: haiderkh

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


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