[alims]

دى اول محاولة ليا فى حلقة التكرار

كود :

  If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       Dim cmd As New SqlCommand("select * from userandfriend where id=('60')", con)
       Dim da As SqlDataReader = cmd.ExecuteReader
       Do While da.Read = True
           MsgBox((da("idfriend")))
           MsgBox((da("Status")))
       Loop

كده انا عرفت اخدت القيمة من الحقل idfriend و الحالة Status من الحقل فى  الجدوال الاول userandfriend وعرفت ارقام الاصدقاء مفروض اعمل حلقة تكرار تانية علشان  اخدت رقم الصديق من (da("idfriend"))) و اعمل بحث فى الجدوال useraddnew علشان يكون الكود شكله كده 
useraddnew.id=userandfriend.id علشان اقدر اعرف بقى البيانات من الجدوال useraddnew  بس ازاى يتم عمل ذلك
علشان فى الاخر يكون معايا من الجدوال الاولuserandfriend الحقل idfriend وStatus  و من الجدوال التاني useraddnew  الحقل id و surnameandnameو img؟؟؟!!!