تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود البحث داخل مصفوفة بشرط
#1
انا ابحث داخل تيكست واظهر الناتج باليبل 4 اريد ان اقارن بين ناتج البحث والمصفوفة
انا حاولت بالكود دة

لم ينجح معي هذا الكود

ناتج البحث مثلا
2005
OR 2006
المصفوفة
PHP كود :
Dim stringArray As String() = {"2005" _
"2006""2008""2009""2010""2011"}
        
Dim H As String Label4.Text
               Dim stringToCheck 
As String H
                
For Each x As String In stringArray
            
If x.Equals(stringToCheckThen
                Label20
.Text "MODEL " "  " x
            
Else
                Exit 
Sub

            End 
If
        
Next 
الرد }}}}
تم الشكر بواسطة:
#2
اخي العزيز انا جربت الكود والكود شغال ما فيه أي مشكلة

ما الخطأ الذي يظهر لك؟
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم و رحمة الله و بركاته
أعتقد أن الأمر Exit Sub ليس في المكان المناسب

كود :
Dim stringArray As String() = {"2005" , "2006", "2008", "2009", "2010", "2011"}
        Dim H As String = Label4.Text
               Dim stringToCheck As String = H
                For Each x As String In stringArray
If x.Equals(stringToCheck) Then
                Label20.Text = "MODEL " & "  " & x
                         Exit Sub
            End If
        Next

كما يمكنك استبدال exit Sub بــ exit For إذا كان هناك بعض الأوامر في الإجراء
بالتوفيق إن شاء الله تعالى

السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود برنامج جرد بحيت يدخل لي تلقائيا ارقام تسلسلية silensieux2013 8 65 اليوم, 03:03 AM
آخر رد: silensieux2013
  أستفسار تنسيق نص داخل الكرستال طـلال 1 25 أمس, 05:32 PM
آخر رد: ahmedmansour
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 51 12-12-17, 04:14 PM
آخر رد: حنان المغربى
  اريد جلب هذا الرابط ابو روضة 0 34 11-12-17, 02:10 AM
آخر رد: ابو روضة
  هل يمكن كتابة كلاس داخل كلاس anes 2 78 09-12-17, 10:21 PM
آخر رد: anes
  ربط أداة progress bar مع عملية البحث fouadhdfouad 1 68 09-12-17, 01:19 AM
آخر رد: Rabeea Qbaha
  اريد جملة شرطية متوسطة ƊЄƔƖԼ ƇƠƊЄƦ 1 47 07-12-17, 09:07 PM
آخر رد: Rabeea Qbaha
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 57 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  اريد طريقه لوضع شرط عند الحفظ ahmedmansour 11 268 03-12-17, 06:03 PM
آخر رد: ahmedmansour
  اريد يا اخوان دروس حول شرح كريستال ريبورت 2012 ahmedbezia 0 37 02-12-17, 07:46 PM
آخر رد: ahmedbezia

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


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