XMLDLL操作说明文档（四）

'xmltotable示例
Dim myxml1 As New mydll("d:\iceou.xml")
myxml1.XMLFile_Format("d:\iceou.xml")
Dim myxml As New mydll("d:\iceou.xml")
Dim nt As New Xml.NameTable
Dim nsmgr As New Xml.XmlNamespaceManager(nt)
nsmgr.AddNamespace("SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
nsmgr.AddNamespace("SOAP-ENC", "http://schemas.xmlsoap.org/soap/encoding/")
nsmgr.AddNamespace("xsi", "http://www.w3.org/2001/XMLSchema-instance")
nsmgr.AddNamespace("xsd", "http://www.w3.org/2001/XMLSchema")
nsmgr.AddNamespace("m", "http://webservice.clini.org/")
DataGridView1.DataSource = myxml.xmlToTable("m:getInHospType", , nsmgr)
‘xmltotree示例
Dim nt As New Xml.NameTable
Dim m_xmldll As New mydll("d:\test1.xml")
Dim nsmgr As New Xml.XmlNamespaceManager(nt)
nsmgr.AddNamespace("SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
nsmgr.AddNamespace("m", "http://webservice.clini.org/")
'm_xmldll.xmltotreeview("arg0", TreeView1)
'm_xmldll.m_treeview = TreeView1
m_xmldll.xmlToTreeview("SOAP-ENV:Envelope", TreeView1, "", nsmgr, ImageList1)