Victor Charles
asked on
How to sort xml data element in a Combobox?
Hello,
I’m using the code below to load values from xml files to two combox boxes, how do I modify the code the sort by the “Name” element?
Thanks,
Victor
Dim lnk As XmlNodeList = LinkStream.SelectNodes("Ro ot/Link")
Dim RecName As XmlNodeList = RecStream.SelectNodes("Roo t/Receiver ")
Dim DonorName As XmlNodeList = DonorStream.SelectNodes("R oot/Donor" )
Dim donorlst As New DataTable()
donorlst.Columns.Add("ID")
donorlst.Columns.Add("Name ")
Dim reclst As New DataTable
reclst.Columns.Add("ID")
reclst.Columns.Add("Name")
For Each n As XmlNode In lnk
Dim rID As Integer = Val(n.ChildNodes(0).InnerT ext)
Dim dID As Integer = Val(n.ChildNodes(1).InnerT ext)
For Each node As XmlNode In RecName
If node.ChildNodes(0).InnerTe xt = rID.ToString Then
reclst.Rows.Add(New Object() {rID, node.ChildNodes(1).InnerTe xt})
'Exit For
End If
Next
For Each node As XmlNode In DonorName
If node.ChildNodes(0).InnerTe xt = dID.ToString Then
donorlst.Rows.Add(New Object() {node.ChildNodes(0).InnerT ext, node.ChildNodes(1).InnerTe xt})
'Exit For
End If
Next
Next
CmbDonor.DataSource = donorlst
CmbDonor.DisplayMember = "Name"
CmbDonor.ValueMember = "ID"
CmbRec.DataSource = reclst
CmbRec.DisplayMember = "Name"
CmbRec.ValueMember = "ID"
I’m using the code below to load values from xml files to two combox boxes, how do I modify the code the sort by the “Name” element?
Thanks,
Victor
Dim lnk As XmlNodeList = LinkStream.SelectNodes("Ro
Dim RecName As XmlNodeList = RecStream.SelectNodes("Roo
Dim DonorName As XmlNodeList = DonorStream.SelectNodes("R
Dim donorlst As New DataTable()
donorlst.Columns.Add("ID")
donorlst.Columns.Add("Name
Dim reclst As New DataTable
reclst.Columns.Add("ID")
reclst.Columns.Add("Name")
For Each n As XmlNode In lnk
Dim rID As Integer = Val(n.ChildNodes(0).InnerT
Dim dID As Integer = Val(n.ChildNodes(1).InnerT
For Each node As XmlNode In RecName
If node.ChildNodes(0).InnerTe
reclst.Rows.Add(New Object() {rID, node.ChildNodes(1).InnerTe
'Exit For
End If
Next
For Each node As XmlNode In DonorName
If node.ChildNodes(0).InnerTe
donorlst.Rows.Add(New Object() {node.ChildNodes(0).InnerT
'Exit For
End If
Next
Next
CmbDonor.DataSource = donorlst
CmbDonor.DisplayMember = "Name"
CmbDonor.ValueMember = "ID"
CmbRec.DataSource = reclst
CmbRec.DisplayMember = "Name"
CmbRec.ValueMember = "ID"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks for the code, I will get back to you tomorrow.
ASKER
Thank You!
Open in new window