[atefkhalf2004]

السادة
هذا كود  يعرض  3 اسماء   عشوائية
     Dim array As String() = New String(DataGridView1.Rows.Count - 1) {}
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            array(i) = DataGridView1.Rows(i).Cells("name").Value
        Next
        For i = 1 To 3
            Dim arrNames As Array = array
            Dim rand As New Random
            Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
            Dim rndName As String = arrNames(rndIndex)

            MsgBox(rndName)
        Next

لعدم خبرتي بالمصفوفات  
ارغب في عدم تكرار  عنصر 
اي
اضع شرط  في حالة وجود العنصر  يعرض عنصر بدلا منه
شكرا

[Taha Okla]

هل تعرف بقواعد البيانات - التخزين فيها واستخراج البيانات منها ؟؟

إن كنت تعرف فالحل الأمثل هو : 
أن تجعل برنامجك يستخرج القيم من جدول من قاعدة البيانات باستخدام الخاصية  (distinct) فهي تمنع التكرار..

فيكون الاستعلام المستخدم في ااسلاتعلام عن البيانات هو : 
"select distinct FieldName From TablName"

ثم انسب هذه القيم لمصفوفتك العشوائية .. واستخرج منها ما شئت من قيم ..

[atefkhalf2004]

انا حضرتك اريدها علي الكود المرسل
للتعليم
ارغب في معرفة كيفية اختبار عنصر في مصفوفة مع عدم التكرا ر
شكرا

[atefkhalf2004]

السادة الزملاء برجاء الرد

[atefkhalf2004]

السادة الافاضل
لو سؤالي خطا برجاء التوصيح
او ابجاد حل للتعليم

[معاند الحظ]

اخوي اي مصفوفة او اي عنصر تحكم من النوع الذي يحتوي داخله عناصر اخرى يحتوي على 
خاصية Contains وهي مفيدة لمعرفة اذا كان عنصر ما موجود داخل المصفوفة او داخل الليست بوكس مثلا وهكذا
والطريقة بسيطة فقط ضع شرط تحقق If واستخدم الدالة او الخاصية Contains لتعرف هل المصفوفة تحتوي على
العنصر الذي قمت بتمريره كوسيط الى  Contains . 
اذا فعلت هذا فيجب ان ياتي جواب الشرط اما بالنفي او الاثبات وعندها افعل مايتوجب عليك فعله

كود :

If MyArray.Contains(SomeValue) Then
Do somthing if exist
Else
Do somthing if not exist
End If

---

اخوي اي مصفوفة او اي عنصر تحكم من النوع الذي يحتوي داخله عناصر اخرى يحتوي على 
خاصية Contains وهي مفيدة لمعرفة اذا كان عنصر ما موجود داخل المصفوفة او داخل الليست بوكس مثلا وهكذا
والطريقة بسيطة فقط ضع شرط تحقق If واستخدم الدالة او الخاصية Contains لتعرف هل المصفوفة تحتوي على
العنصر الذي قمت بتمريره كوسيط الى  Contains . 
اذا فعلت هذا فيجب ان ياتي جواب الشرط اما بالنفي او الاثبات وعندها افعل مايتوجب عليك فعله

كود :

If MyArray.Contains(SomeValue) Then
Do somthing if exist
Else
Do somthing if not exist
End If

[atefkhalf2004]

Dim array As String() = New String(DataGridView1.Rows.Count - 1) {}
For i As Integer = 0 To DataGridView1.Rows.Count - 1
array(i) = DataGridView1.Rows(i).Cells("tname").Value
Next
For i = 1 To 3

Dim arrNames As Array = array
Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)


Dim rndName As String = arrNames(rndIndex)
If array.Contains(rndName) Then

Else

MsgBox(rndName)
End If


Next

لم تضبط معي
برجاء التصويب
شكرا