منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم شباب عندى سؤال عن الاداء listview
قومت بعمل الكود التالى
ارويد ان يتم المستخدام فى حالة نشط online فى قايمة و الغير نشاط offline فى قايمة اخرى كيف فعل هذا الامر و شكرا لكم
للعلم عندى حقل اسمه st
و يوجد داخل الحقل بيانات عبارة عن online و offline

كود :

   Public Sub firendview(ByVal listview As ListView)

        listview.View = View.Tile

        listview.RightToLeftLayout = True

        Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim ds As New DataSet

        ds.Clear()

        Dim data As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=" & Form1.Label6.Text & ")" & "", con)

        Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)

        data.Fill(ds, "idfriends")

        con.Close()

        data.Fill(ds)

        Dim dt = ds.Tables(0)

        For i = 0 To dt.Rows.Count - 1

            listview.Items.Add(dt.Rows(i).Item("iduser"))

        Next

    End Sub

هفترض ان عندك 3 اعمده

Public Sub firendview(ByVal listview As ListView)
listview.View = View.Tile
listview.RightToLeftLayout = True

Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

Dim dt As New DataTable
Dim data As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=" & Form1.Label6.Text & ")", con)
data.Fill(dt)

For i = 0 To dt.Rows.Count - 1
        Dim itm As New ListviewItem(dt.Rows(i).Item("iduser"))
        Dim st As String = dt.Rows(i).Item("st"))
        itm.SubItems.Add(If(st="online", st, ""))
        itm.SubItems.Add(If(st="offline", "", st)
      listview.Items.Add(itm)
    Next
End Sub

لكن ليه الشرط iduser؟

لكن ليه الشرط iduser؟
الشرط ده علشان اقدر اجيب اسم المستخدم و الأصدقاء المستخدم من الجدول وبعد كده أعرض جميع الأصدقاء في حال نشط او غير نشيط

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alims

Fareed2

alims