Переобразование Dxl

[swyatogor]

тут оказалась немного другая беда.. правильно вот так
Set nodeChild = nodeChild.NextSibling
но в моем случае, что то ему не понравилось и пришлось сделать ход конем..

                    If elt.hasChildNodes Then
                        Set nodeChild = elt.FirstChild
                        Do Until nodechild.IsNull
                            q=q+1
                            If nodeChild.NodeName="tablecolumn" Then
                                Set nodeChild =  elt.RemoveChild(nodeChild) 
                            End If
                            Set nodeChild = elt.FirstChild
                            Print "q " + Cstr(q)
                            If q>100 Then Exit Do
                        Loop
                    End If