Mostrar info de un archivo XML en una regilla
Publicado por Adolfo (55 intervenciones) el 06/04/2011 02:52:16
Buenas,
Tengo el siguiente codigo que genera un archivo XML y almasena los 2 registros abajo mencionados.
Pero cuanto los cargo en la regilla me muestra 2 veces cada registro, como si lellera el archivo XML 2 veces, y no he podido determinar porque lo hace?
Agradeceria cualquier sugerencia para solucionar este problema.
Gracias.
Dim XMLFilePath As String = Application.StartupPath & "\Proveedores.xml"
Dim DS As New DataSet("TBProveedores")
Dim DT As New DataTable("TBProveedores")
Dim DR As DataRow
DT.Columns.Add("Nombre", System.Type.GetType("System.String"))
DT.Columns.Add("Telefono", System.Type.GetType("System.String"))
DT.Columns.Add("Email", System.Type.GetType("System.String"))
DS.Tables.Add(DT)
DR = DS.Tables("TBProveedores").NewRow
DR("Nombre") = "Isa"
DR("Telefono") = "2222-8888"
DR("Email") = "[email protected]"
DT.Rows.Add(DR)
DR = DS.Tables("TBProveedores").NewRow
DR("Nombre") = "Adolfo"
DR("Telefono") = "4444-1111"
DR("Email") = "[email protected]"
DT.Rows.Add(DR)
DS.WriteXml(XMLFilePath, XmlWriteMode.WriteSchema)
DS.ReadXml(XMLFilePath, XmlReadMode.ReadSchema)
DBGProveedores.DataSource = DS.Tables("TBProveedores")
Tengo el siguiente codigo que genera un archivo XML y almasena los 2 registros abajo mencionados.
Pero cuanto los cargo en la regilla me muestra 2 veces cada registro, como si lellera el archivo XML 2 veces, y no he podido determinar porque lo hace?
Agradeceria cualquier sugerencia para solucionar este problema.
Gracias.
Dim XMLFilePath As String = Application.StartupPath & "\Proveedores.xml"
Dim DS As New DataSet("TBProveedores")
Dim DT As New DataTable("TBProveedores")
Dim DR As DataRow
DT.Columns.Add("Nombre", System.Type.GetType("System.String"))
DT.Columns.Add("Telefono", System.Type.GetType("System.String"))
DT.Columns.Add("Email", System.Type.GetType("System.String"))
DS.Tables.Add(DT)
DR = DS.Tables("TBProveedores").NewRow
DR("Nombre") = "Isa"
DR("Telefono") = "2222-8888"
DR("Email") = "[email protected]"
DT.Rows.Add(DR)
DR = DS.Tables("TBProveedores").NewRow
DR("Nombre") = "Adolfo"
DR("Telefono") = "4444-1111"
DR("Email") = "[email protected]"
DT.Rows.Add(DR)
DS.WriteXml(XMLFilePath, XmlWriteMode.WriteSchema)
DS.ReadXml(XMLFilePath, XmlReadMode.ReadSchema)
DBGProveedores.DataSource = DS.Tables("TBProveedores")
Valora esta pregunta
0