''''如果直接使用ds做datasource则不会展开datagrid,用dv则可以直接显示正确。 Dim ds As DataSet = New DataSet ds.ReadXml(xmlFile) Dim tb As DataTable Dim dv As DataView tb = ds.Tables(0) dv = New DataView(tb) ''''DataGrid1.DataSource = dv ''''DataGrid1.DataMember = "testXmlMember" ''''DataGrid1.DataMember = "employeefname" ''''Dim dxd As New XmlDataDocument DataGrid1.SetDataBinding(dv, "") xmlDD = New XmlDataDocument(ds)