Torna al Thread
'carica i campi dall'xml
filepath = TBFilexml.Text 'qui c'è scritto il percorso dell'xml
Dim DocXML As New Xml.XmlDocument
DocXML.Load(filepath) 'qui carico il file XML
filepath = TBFilexsd.Text 'qui c'è scritto il percorso dell'xsd
Dim DocXSD As New DataSet
DocXSD.ReadXmlSchema(filepath) 'qui carico lo schema dell'XML
Dim node As Xml.XmlNodeList
Dim ele As Xml.XmlElement
node = DocXML.DocumentElement.FirstChild.ChildNodes 'qui carico la prima lista di nodi
Dim x As Integer
dt1 = frmProcesso.dgvCampi.DataSource 'associo ad un datatable la datagrid in cui finiranno i campi presi dall'XML
'aggiunge i campi in dgvcampi
Dim row1 As DataRow
For x = 0 To node.Count - 1
row1 = dt1.NewRow
dt1.Rows.Add(row1)
ele = node(x)
frmProcesso.dgvCampi.Rows(x).Cells(1).Value = ele.Name.ToString
Next
dset2.Tables.Add(frmProcesso.dgvCampi.DataSource) 'salvo tutto in un dataset che mi servirà poi per un recupero nel mio programma