关于xml,大家都进来

[etuchang]

<?xml version="1.0"?>
<information>
<usergroup>
<user>aaaaa</user>
<user>bbbbb</user>
</usergroup>
</information>

这个格式对吗?
如何绑定datagrid?
Dim reader As XmlTextReader
reader = New XmlTextReader(Server.MapPath("mycompany2.xml"))
Dim xmldatadoc As XmlDataDocument
xmldatadoc = New XmlDataDocument
xmldatadoc.DataSet.ReadXml(reader)
DataGrid1.DataSource = xmldatadoc.DataSet.Tables(0).DefaultView
Dim aa As String = xmldatadoc.DataSet.Tables(0).Columns(0).ColumnName()
DataGrid1.DataBind()
错在哪里?

[etuchang]

没人？？

[etuchang]

顶一顶

[rickjelly2004]

UP
给你一个例子

[rickjelly2004]

Dim userDocument As XmlDocument
Dim userNode As XmlNode
Dim userList As XmlNodeList
Dim userListLoop As XmlNodeList
Dim user As XmlNode
Dim userInfo As XmlElement

userDocument = New XmlDocument

If Dir(Server.MapPath("user.xml")) <> "" Then
userDocument.Load(Server.MapPath("user.xml"))
Else
Return False
End If

Try
userNode = userDocument.SelectSingleNode("infomation")
userList = userNode.ChildNodes
userListLoop = userList.Item(0).ChildNodes

For Each user In userListLoop
userInfo = user

'このユーザーは存在する、TRUEに戻る
If userInfo.GetAttribute("userid").Equals(userid) _
And userInfo.GetAttribute("password").Equals(password) Then
viewstate("roles") = userInfo.GetAttribute("role")
Return True
End If
Next
Return False
Catch ex As Exception
Return False
End Try