منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الى خبراء المصفوفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : الى خبراء المصفوفات (/showthread.php?tid=6980)



الى خبراء المصفوفات - سعود - 15-11-12

اخواني الاعزاء توصلت لطريقة عرض الاسماء المسجلين بالطريقة التالية:
ضمن موديول كتبت
كود :
Public lst As New List(Of String)

وعند تسجيل الدخول بعد التحقق كتبت
كود :
Session("name") = dr.Item("tname")
            Session("tid") = dr.Item("tid")
            lst.Add(Session("name"))

وبالصفحة الرئيسية كتبت
كود :
For Each itm In lst
            If Label1.Text.Contains(itm) = False Then
                Label1.Text &= "<a href=member.aspx?mid=" & Session("tid") & "&mn=" & itm & ">" & itm & "</a>" & " ,"
            End If
        Next

الاشكال ان رقم الاي دي موحد للكل بسبب متغير حالة الجلسة يعني لو الاي دي رقم 1 للمسجل سيصبح الكل رقم 1 فكيف اقوم بتخزين الاي دي ضمن List بنفس الطريقة لكن اريد ان اعرف ان الرقم الفلاني للمسجل الفلاني؟
ارجو ان يكون السؤال واضحا وشكرا لكم جميعا



الى خبراء المصفوفات - سعود - 15-11-12

وجدت الحل والحمدلله وهو بتخزين الاسم وبعده الاي دي وبينهم علامة مثل "#" ونستخدم split ليكون مكان الاسم 0 ومكان الاي دي 1

كود :
Dim P() As String
        For Each itm In lst
            Dim o As String = itm
            P = o.Split("#")
            If Label1.Text.Contains(P(0)) = False Then

                '  Label1.Text &= "<a href=member.aspx?mn=" & itm & ">" & itm & "</a>" & " ,"
                Label1.Text &= "<a href=member.aspx?mid=" & P(1) & "&mn=" & P(0) & ">" & P(0) & "</a>" & " ,"


            End If
        Next

والحمدلله الامور تمامSmile يلا من يفطر معيSmile


الى خبراء المصفوفات - amgadtamer - 15-11-12

كان بامكانك استخدام
PHP كود :
Dim myvariable As New Generic.Dictionary(Of IntegerString)
او
        Dim myvariable1 
As New Generic.SortedDictionary(Of IntegerString)
بحيث تقوم بتمرير ال id والاسم 



الى خبراء المصفوفات - سعود - 15-11-12

طيب اخوي امجد شلون نخزن بها قيم؟


الى خبراء المصفوفات - amgadtamer - 16-11-12

استكمالا للكود
PHP كود :
myvariable.add(session("tid"),session("name"))
وبهذا يتم اضافة ال id والاسم معا