[Genius Live]

(09-03-14, 12:04 AM)سعود كتب : اضف عدد مربعي نص وزر امر
اكتب بمربع النص الاول اربع اسماء بين كل اسم والاخر مسافة واحدة
واترك مربع النص الاخر لنكتب به الاندكس لموقع الاسم في المصفوفة
اكتب الكود التالي في حدث النقر لزر الامر

كود :

Dim p() As String = TextBox1.Text.Split(" ")
        Try
            Dim t As String = p(Val(TextBox2.Text))
            If Array.IndexOf(p, t) > 2 Then
                MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
                Exit Sub
            End If
            MsgBox(t)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try

بعد إذنك اخي سعود
هذا الكود يعتمد علي رقم فهرس المصفوفة الموجود بــ TextBox2 ولن يعيد غير عنصر واحد
ليس هذا ما يريده
هو يريد الرجوع بقيمة الاسم الثلاثي اي بالفهرس 0 و 1 و 2 معا ليس هذا فحسب بل هو يريده لكل السجلات

اخي الكريم عبد الله سوف اعد لك مثال بسيط لجلب البيانات من الجدول وتعديلها والباقي عليك إنتظرني قليلا

تحياتي للجميع