Problema con Exportar datos de un MSFlexGrid a Archivos XML

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Problema con Exportar datos de un MSFlexGrid a Archivos XML

    Hola a todo

    necesito su ayuda con lo siguiente…… Tengo un MSFLEXGRID que contiene datos que estoy extrayendo de una tabla mediante una consulta de SQL
    pero cuando hago la exportación del contenido del MSFLEXGRID a XML.. al exportarla Solo una columna exportar como hacer exportarla todos los registros a XML.
    de antemano gracias

    Adjunto Proyecto


    Archivos adjuntos

  • #2
    Prueba a sustituir la subrutina Command1_Click por esto

    Código:
    Private Sub Command1_Click()
        Dim Xdoc     As DOMDocument
        Dim Cabecera As MSXML2.IXMLDOMElement
        Dim Detalle  As MSXML2.IXMLDOMElement
        Dim codi     As MSXML2.IXMLDOMElement
        Dim Descri   As MSXML2.IXMLDOMElement
        Dim Uni      As MSXML2.IXMLDOMElement
        Dim Can      As MSXML2.IXMLDOMElement
        Dim Tot      As MSXML2.IXMLDOMElement
    
        Set Xdoc = New DOMDocument
        Set Cabecera = Xdoc.createElement("Envio")
        
        Cabecera.setAttribute "version", "1.0"
    
        Dim O As Integer
        With Grid
            For O = 1 To .Rows - 1
                Set Detalle = Xdoc.createElement("Detalle")
                Set codi = Xdoc.createElement("Codigo")
                codi.Text = .TextMatrix(O, 1)
                Set Descri = Xdoc.createElement("Descriocion")
                Descri.Text = .TextMatrix(O, 2)
                Set Uni = Xdoc.createElement("Unitario")
                Uni.Text = .TextMatrix(O, 3)
                Set Can = Xdoc.createElement("Cantidad")
                Can.Text = .TextMatrix(O, 4)
                Set Tot = Xdoc.createElement("Total")
                Tot.Text = .TextMatrix(O, 5)
     
                Cabecera.appendChild Detalle
                Detalle.appendChild codi
                Detalle.appendChild Descri
                Detalle.appendChild Uni
                Detalle.appendChild Can
                Detalle.appendChild Tot
                
            Next O
        End With
        
        Xdoc.appendChild Cabecera
        Xdoc.Save App.Path & "\archivo1.xml"
    
    End Sub
    José María Movilla Cuadrado
    ______________________
    Normas del foro
    www.foro.vb-mundo.com
    www.vb-mundo.com

    Comentario


    • #3
      muchos gracias

      Comentario

      Trabajando...
      X