[alims]

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

كود :

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Soka\documents\visual studio 2010\Projects\Spicy Messenger !\Spicy Messenger !\ArEnLang.accdb;Persist Security Info=True")

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       If cn.State = ConnectionState.Open Then cn.Close()
       cn.Open()
       Dim StrSQL As String = "Select * From countriesnames ORDER BY countriesnamesAR"
       Dim daa As New OleDb.OleDbDataAdapter(StrSQL, cn)
       Dim GetTable As New DataTable
       GetTable = ExcSqlDT(StrSQL)
       daa.Fill(GetTable)
       TreeView1.Nodes.Clear()
       Dim dict As New Dictionary(Of String, List(Of String))()
       For Each row As Data.DataRow In GetTable.Rows
           Dim ParentRow As String = DirectCast(row.Item(1), String)
           Dim ChildRow As String = DirectCast(row.Item(5), String)
           If ParentRow Is Nothing OrElse ChildRow Is Nothing Then
               Continue For
           End If
           If dict.ContainsKey(ParentRow) Then
               dict(ParentRow).Add(ChildRow)
           Else
               dict.Add(ParentRow, New List(Of String)())
               dict(ParentRow).Add(ChildRow)
           End If
       Next
       Dim node As TreeNode
       For Each kvp In dict
           node = New TreeNode(kvp.Key)
           TreeView1.Nodes.Add(node)
           For Each chiled As String In kvp.Value
               node.Nodes.Add(chiled)
           Next
       Next

       cn.Close()
   End Sub
   Function ExcSqlDT(ByVal SqlStr As String) As DataTable
       Dim da As New OleDb.OleDbDataAdapter(SqlStr, cn)
       Dim dtt As New DataTable
       dtt.Clear()
       da.Fill(dtt)
       Return dtt
   End Function
End Class

تم حل المشكلة عن طريق حذف

كود :

dict(ParentRow).Add(ChildRow)

هل انا صح ام خطاء

---

سؤال اخر و هو اظهار صورة بجانب اسم كل دولة
للعلم يوجد فلولدر كامل يحتوى على صورة كل دولة باسمها كيفية اضافة هذا