MEU FOR EACH NAO ACHA SUB NO DE XML

FBGSYSTEMS 05/10/2013 09:20:24
#429579
Bom dia pessoal.
Estou tentando ler um xml, e meu código nao esta lendo sub nós do xml.

Alguem poderia me ajudar ?

Segue trecho do meu código
                        If xml.Load(varServidor & dsConfigNfe!progresso & [Ô]\[Ô] & Format(CInt(num_lote), [Ô]000000000000000[Ô]) & [Ô]-rec.xml[Ô]) Then
                            
                            For Each X In xml.documentElement.childNodes
                                Select Case X.nodeName
                                Case Is = [Ô]cStat[Ô]
                                    status = UCase$(X.childNodes(0).Text)
                                   
                                Case Is = [Ô]nRec[Ô]
                                    numero_lote = UCase$(X.childNodes(0).Text)
                                End Select
                            Next


O cStat ele reconhece, porem o nRec não, pois aparentemente esta dentro de outro nó.
MARCELO.TREZE 07/10/2013 09:50:43
#429624 Resposta escolhida
X esta declarada como o que?
FBGSYSTEMS 07/10/2013 15:01:33
#429643
Na verdade o X não esta declarado.
Estou precisando muito disto porem nao acho o porque do problema.
Ele passa em todas tag[ô]s [Ô]pai[Ô] do xml, porem não percorre as tag [Ô]filho[Ô].

Tem idéia do que pode ser, Marcelo ?
MARCELO.TREZE 07/10/2013 15:05:22
#429644
eu acredito que vc tenha que declarar X como node.
FBGSYSTEMS 07/10/2013 15:11:40
#429645
Entendi vou tentar aqui.
FBGSYSTEMS 07/10/2013 15:28:30
#429650
Nao deu certo.
Bem estranho isto, se fosse pra ser problema de declaração, ele nao faria a leitura de nenhuma tag, certo?
Porque ele nao le apenas as subtags?

Nao acho nada na net que possa me ajudar neste caso.
FBGSYSTEMS 07/10/2013 15:36:41
#429653
Fiz assim para resolver paliativamente. E deu certo. Porem é bem sacal fazer isso.
Vou continuar procurando a solução
                            For Each X In xml.documentElement.childNodes
                                Select Case X.nodeName
                                Case Is = [Ô]cStat[Ô]
                                    status = UCase$(X.childNodes(0).Text)
                                   
                                Case Is = [Ô]infRec[Ô]
                                    xml.documentElement.childNodes.nextNode
                                    xml.documentElement.childNodes.nextNode
                                    xml.documentElement.childNodes.nextNode
                                    xml.documentElement.childNodes.nextNode
                                    xml.documentElement.childNodes.nextNode
                                    xml.documentElement.childNodes.nextNode
                                    numero_lote = UCase$(X.childNodes(0).Text)
                                    
                                End Select
                            Next
Tópico encerrado , respostas não são mais permitidas
Voltar