dim domxmldocument as system.xml.xmldocument    dim tmppath as string = apptempfilepath    dim xmlfile as string = tmppath + "＼testxml.xml"  '窗体加载事件    private sub testxml_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load    '读xml过程测试通过    dim domxmldocument as system.xml.xmldocument    dim tmppath as string = apptempfilepath    dim xmlfile as string = tmppath + "＼testxml.xml"    dim reader as system.xml.xmlreader = nothing    try    reader = new xml.xmltextreader(xmlfile)    'reader.    while reader.read    me.lboxxml.items.add(reader.name + reader.value)    end while    catch ex as exception    msgbox(ex.message)    finally    if not (reader is nothing) then    reader.close()    end if    end try    end sub    '载入xml事件    private sub btnxmlload_click(byval sender as system.object, byval e as system.eventargs) handles btnxmlload.click    'me.lboxxml.items.clear()    ''读xml过程测试通过    'dim reader as system.xml.xmlreader = nothing    'try    ' reader = new xml.xmltextreader(xmlfile)    ' while reader.read    ' me.lboxxml.items.add(reader.name + ":" + reader.value)    ' end while    'catch ex as exception    ' msgbox(ex.message)    'finally    ' if not (reader is nothing) then    ' reader.close()    ' end if    'end try    dim ds as new dataset    try    '如果直接使用ds做datasource则不会展开datagrid，用dv则能直接显示正确。    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    catch ex as exception    msgbox(ex.message.tostring)    end try    end sub    '保存新建xml内容事件    private sub btnsavenew_click(byval sender as system.object, byval e as system.eventargs) handles btnsavenew.click    dim mytw as new xmltextwriter(tmppath + "＼testxmlwrite.xml", nothing)    mytw.writestartdocument()    mytw.formatting = formatting.indented    mytw.writestartelement("team")    mytw.writestartelement("player")    mytw.writeattributestring("name", "george zip")    mytw.writeattributestring("position", "qb")    mytw.writeelementstring("nickname", "zippy")    mytw.writeelementstring("jerseynumber", xmlconvert.tostring(7))    mytw.writeendelement()    mytw.writeendelement()    mytw.writeenddocument()    mytw.close()    end sub