[modymody300894]

السلام عليكم ورحمة الله وبركاته

لو سمحتوا انا عملت برنامج شات بين المستخدمين فى البرنامج بتاعي وخلصته والحمدلله 

بستدعي المستخدمين داخل اداه  FlowLayoutPanel 

بس ناقصني شئ واحد وان استدعي عدد الرسائل الغير مقروءه لكل مستخدم بجانب اسمه 

مثال 
1- محمود ( 3 )
2- احمد ( 10 )
3- علي ( 7 )

انا مجهز فى جدول الشات ببرنامج سيكوال قدام كل رساله عدد الرسائل الغير مقروءه 

المطلوب ازاي استدعيها من جدول تاني فى نفس وقت استدعاء المستخدمين

دا الكود اللى بستخدم بس بيحصل خطأ فى حاله استدعاء عدد الرسائل الغير مقروءه

برجاء التعديل فى الكود لاستدعاء المستخدمين مع عدد الرسائل الغير مقروءه 

كود :

 Public Sub load_users()
       con.Close()
       FlowLayoutPanel1.AutoScroll = True
       FlowLayoutPanel1.Controls.Clear()

       cmd = New SqlCommand("select * from users where name_Branches ='" & frm_home.BarStaticItem2.Caption & "' and not fullname_user ='" & frm_home.BarStaticItem4.Caption & "' ORDER BY on_off", con)
       dr = cmd.ExecuteReader
       con.Open()
       While dr.Read()
           ' خصائص الزر واستدعاء البيانات
           Dim btt = New Guna.UI2.WinForms.Guna2Button
           btt.Size = New Size(245, 60)
           btt.Font = New Font("GE SS Two Light", 12, FontStyle.Bold)
           Label11.Text = dr.Item("id_user").ToString
           btt.Tag = dr.Item("id_user").ToString
           btt.BackColor = Color.Transparent
           btt.FillColor = Color.FromArgb(0, 62, 114)
           btt.AutoRoundedCorners = True
           Label10.Text = dr.Item("fullname_user").ToString
           btt.TextAlign = HorizontalAlignment.Left
           Label1.Text = dr.Item("sex_user").ToString
           Label2.Text = dr.Item("on_off").ToString

           'جلب صوره ذكر او انثي ومتصل او لا
           If Label1.Text = "ذكر" And Label2.Text = "متصل" Then
               btt.Image = My.Resources.راجل_اخضر
           ElseIf Label1.Text = "ذكر" And Label2.Text = "مغلق" Then
               btt.Image = My.Resources.راجل_احمر
           ElseIf Label1.Text = "انثي" And Label2.Text = "مغلق" Then
               btt.Image = My.Resources.بنت_احمر
           ElseIf Label1.Text = "انثي" And Label2.Text = "متصل" Then
               btt.Image = My.Resources.بنت_اخضر
           End If

           con.Close()

           'استدعاء عدد الرسائل الغير مقروءه
           Dim dt As New DataTable
           dt.Clear()
           ad = New SqlDataAdapter("select massage_report1 from massge_chat where id_user1 = '" + Label11.Text + "' and  id_user2 = '" + frm_home.BarStaticItem12.Caption + "'  ", con)
           ad.Fill(dt)
           If IsDBNull(dt(0)(0)) = True Then
               Label12.Text = 0
           Else
               Label12.Text = dt(0)(0)
           End If
           btt.Text = Label10.Text & " ( " & Label12.Text & " )"
           btt.ImageAlign = HorizontalAlignment.Right
           btt.ImageSize = New Size(57, 57)
           btt.ImageOffset = New Size(-8, 0)
           FlowLayoutPanel1.Controls.Add(btt)
           btt.Cursor = Cursors.Hand
       End While
       Debug.Close()
       con.Close()
   End Sub

برجاء الافادة للضرورة لو سمحتوا ولكم جزيل الشكر