الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عرض البيانات بال listview للجداول المرتبطة

بدأه فاضل الكعبي في 23 ديسمبر 2011 · 6 رد · 1,062 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد ان اعرض بدلا من الداتا كرد بال listview بحثت كثيرا ولم اجد في المنتدى ولا في غيره اعتمادا على BindingSource

Dim per_prior As OleDbCommand = New OleDbCommand("SELECT  * from per_prior_emp", conn)
        DataAdapter9 = New OleDbDataAdapter(per_prior)
        Dim builder9 As New OleDbCommandBuilder(DataAdapter9)
        DataAdapter9.Fill(dataset1, "per_prior_emp")
        dataset1.Relations.Add("per_prior_emp", dataset1.Tables("per_information").Columns("emp_no"), dataset1.Tables("per_prior_emp").Columns("emp_no"))
        BindingSource9.DataSource = New BindingSource(BindingSource3, "per_prior_emp")
        per_priorGrid.DataSource = BindingSource9
        per_priorGrid.Columns("id_pemp").Visible = False
        per_priorGrid.Columns("emp_no").Visible = False

تم تعديل هذه المشاركة بواسطة فاضل الكعبي في 23 ديسمبر 2011 في 02:00

#2

انا في الانتضار

#4

السلام عليكم

استاذي شفتها كلها وبحث لكن لم اجد عن طريقة عرض ال listview باستخدام ال bindingsource

#5

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

اخي اصلا الاداة ListView ليست مثل الاداة DataGridView لذا يمكن عمل الربط يدويا, يعني نقوم بعمل اعمدة ونضبط طور العرض الى Details من ثم نقوم باضافة Items و SubItems

.:: Wish to become better and better ::.

#6

السلام عليكم المشكلة في لا اريد استخدام ال dataset.table في العرض بال listview بال bindingsource

 Dim Itm As ListViewItem

            For a As Integer = 0 To data__Leave.Tables("Leave").Rows.Count - 1

                Itm = ListView1.Items.Add(data__Leave.Tables("Leave").Rows(a).Item("Start_holiday").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("Day1").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("Leave_end").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("Day2").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("Period_leave").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("Date_back").ToString)
                Itm.SubItems.Add(data__Leave.Tables("Leave").Rows(a).Item("id").ToString)

                TextBox7.Text = Val(data__Leave.Tables("Leave").Rows(a).Item("Period_leave").ToString) + Val(TextBox7.Text)

            Next
#7

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

اخي مو مشكلة يمكنك التنقل في سجلات الـ BindingSource واستعراض اي قيمة عبر الخاصية Current

.:: Wish to become better and better ::.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…