مساعده فى التريفيو - نسخة قابلة للطباعة

مساعده فى التريفيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده فى التريفيو (/showthread.php?tid=27091)

مساعده فى التريفيو - vb2010 - 23-10-18

السلام عليكم
عملت داتاجريد فيو و تريفيو لكن الداتاجريدفيو لاتعرض البيانات لا اعرف لماذا اما التريفيو فتعرض البيانات مرتين لا اعرف لماذا ارجو من حضراتكم تصحيح المشروع المرفق و معه الداتابيس من نوع سيكوال سيرفر 2008

ملف .mdf و ldf

الداتابيس فى المرفقات

الداتابيس سيكوال سيرفر لا استطيع رفعها حولتها الى اكسس 2007

RE: مساعده فى التريفيو - rnmr - 24-10-18

جرب هذا

كود :

Dim Adp As New OleDbDataAdapter("select * from bank", Con)

Dim dt As New DataTable

Adp.Fill(dt)

Me.DataGridView1.DataSource = dt

TreeView_bank.Nodes.Add("0", "البنوك")

For Each r As DataRow In dt.Rows

    Dim bank_id As String = Int(r.Item("bank_id"))

    Dim bank_name As String = r.Item("bank_name")

    Dim bank_parent As String = Int(r.Item("bank_parent"))

    Dim node As TreeNode = TreeView_bank.Nodes.Find(bank_parent, True).FirstOrDefault

    node.Nodes.Add(bank_id, bank_name)

Next

TreeView_bank.ExpandAll()

RE: مساعده فى التريفيو - vb2010 - 24-10-18

شكرا البرنامج اشتغل صح كما اريد

لكن اريد ان استفسر عن شيء

مامعنى التغيرات التى اضفتها

كود :

Dim bank_id As String = Int(r.Item("bank_id"))

    Dim bank_name As String = r.Item("bank_name")

    Dim bank_parent As String = Int(r.Item("bank_parent"))

    Dim node As TreeNode = TreeView_bank.Nodes.Find(bank_parent, True).FirstOrDefault

   node.Nodes.Add(bank_id, bank_name)

و مامعنى FirstOrDefault و متى تستعمل