DimDomXMLDocumentAsSystem.Xml.XmlDocument DimtmpPathAsstring=AppTempFilePath DimxmlFileAsstring=tmpPath+"\testXml.xml" ’窗体加载事件 PrivateSubTestXml_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load ’读xml过程测试通过 DimDomXMLDocumentAsSystem.Xml.XmlDocument DimtmpPathAsstring=AppTempFilePath DimxmlFileAsstring=tmpPath+"\testXml.xml" DimreaderAsSystem.Xml.XmlReader=nothing Try reader=NewXml.XmlTextReader(xmlFile) ’reader. Whilereader.Read Me.lBoxXml.Items.Add(reader.Name+reader.Value) EndWhile CatchexAsException MsgBox(ex.Message) Finally IfNot(readerIsnothing)Then reader.Close() EndIf EndTry EndSub ’载入xml事件 PrivateSubbtnXmlLoad_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnXmlLoad.Click ’Me.lBoxXml.Items.Clear() ’’读xml过程测试通过 ’DimreaderAsSystem.Xml.XmlReader=nothing ’Try ’reader=NewXml.XmlTextReader(xmlFile) ’Whilereader.Read ’Me.lBoxXml.Items.Add(reader.Name+":"+reader.Value) ’EndWhile ’CatchexAsException ’MsgBox(ex.Message) ’Finally ’IfNot(readerIsnothing)Then ’reader.Close() ’EndIf ’EndTry DimdsAsNewDataSet Try ’如果直接使用ds做datasource则不会展开datagrid，用dv则可以直接显示正确。 ds.readxml(xmlFile) DimtbAsDataTable DimdvAsDataView tb=ds.Tables(0) dv=NewDataView(tb) DataGrid1.DataSource=dv ’DataGrid1.DataMember="testXmlMember" ’DataGrid1.DataMember="employeefname" ’DimdxdAsNewXmlDataDocument CatchexAsException MsgBox(ex.Message.ToString) EndTry EndSub ’保存新建xml内容事件 PrivateSubbtnSaveNew_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnSaveNew.Click DimmyTWAsNewXmlTextWriter(tmpPath+"\testXmlWrite.xml",nothing) myTW.WriteStartDocument() myTW.Formatting=Formatting.Indented myTW.WriteStartElement("Team") myTW.WriteStartElement("player") myTW.WriteAttributeString("Name","GeorgeZip") myTW.WriteAttributeString("Position","QB") myTW.WriteElementString("Nickname","Zippy") myTW.WriteElementString("JerseyNumber",XmlConvert.ToString(7)) myTW.WriteEndElement() myTW.WriteEndElement() myTW.WriteEndDocument() myTW.Close() EndSub 对于修改datagrid中指定内容并保存到xml中还不会,弄明白了,在vb.net与xml读写的2中写出来!
