البحث في treeview

راجع هذا الموضوع

و الله ولى التوفيق

شكرا لك اخي الكريم

رايت الفكرة في الموضوع واشتغلت تمام ع البرنامج اللي عندي ولكن فيها مشكلة بسيطة عند الضغط على ايا نود من الـ tree view link

تقوم بالرجوع الى اول نوود في الاعلى وليس الى النود التابع لها ؟؟

هل وصلت مشكلتي ؟ ارجو المساعدة وشكرا

اى اصدار من الأداه قمت بتحميله؟

كيف يعني مش فاهم ؟

ولكن انا بشتغل على vb.net 2008

الموضوع اللى له رابط بالمشاركه 2 يحتوى على نسختين من اداة TreeLink، سؤالى هو اى من الإصدارين قمت بتحميله ؟

ايضا قم بقراءة الموضوع و الردود و ستجد بهم حل لمشكلتك.

و الله ولى التوفيق

اخي الكريم شكرا جزيلا لك قمت بتحميل الاداة الثانية

treelink واشتغلت تمام

ولكن بقي لدي مشكلة بسيطة لا اعتقد ان لها علاقة بموضوع اداتك

مشكلتي الان انني احيانا احتاج الى عمل refresh للشجرة بعد حذف عنصر او تحديث عنصر .. الخ

الان عن عمل تحديث يتم عمل انكماش للشجرة يعني not expanded

كيف يمكنني الرجوع الى المكان الذي كنت اقف عليه بعد عمل refresh ?? وشكرا لك

اقتباس

كيف يمكنني الرجوع الى المكان الذي كنت اقف عليه بعد عمل refresh ?? وشكرا لك

هذا يعتمد على طريقة وضعل للعناصر بالشجره، اذكر لى كيف تقوم بملء الشجره و ان شاء الله اساعدك

و الله ولى التوفيق

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

    Private Sub GET_REFRESH()
        CN.Close()
        CN.Open()
        CMD.Connection = CN
        CMD.CommandType = CommandType.Text
        CMD.CommandText = "select * from TYPES"
        DR = CMD.ExecuteReader
        TreeView1.Nodes.Clear()

        TreeView1.Nodes.Add("Oracle Library")
        Do While DR.Read

            TreeView1.Nodes(0).Nodes.Add(DR("TYPE"))
        Loop
        DR.Close()
        Dim TR As Integer = TreeView1.Nodes(0).Nodes.Count
        Dim T As Integer
        Dim TN As String

        For T = 0 To TR - 1
            TN = TreeView1.Nodes(0).Nodes(T).Text
            CMD.CommandText = "select SUBJECT from CODE_DETAILS where TYPE='" & TN & "'"
            DR = CMD.ExecuteReader
            Do While DR.Read
                TreeView1.Nodes(0).Nodes(T).Nodes.Add(DR("SUBJECT"))
            Loop
            DR.Close()
        Next
        CN.Close()

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
    End Sub