主题：关于XML的问题，初学，请发代码学习

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表C").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 3 To rs.Length - 1
        Dim cs() As String = rs(i).Split("~~")
        If cs.Length = 9 Then
            Dim dr As DataRow = DataTables("表C").Addnew()
            dr("名称") = cs(1)
            dr("税号") = cs(2)
            dr("地址电话") = cs(3)
            dr("银行账号") = cs(4)
        End If
    Next
End If
Tables("表C").ResumeRedraw

这个也没反应啊

For Each f As String In FileSys.GetFiles(dzml3)
    If f.EndsWith(".xml") Then
        Dim txt As String = FileSys.ReadAllText(f, Encoding.Default)
        Dim xmlDoc As New System.XML.XmlDocument
        xmlDoc.Loadxml(txt.Trim)
        Dim ndList  = xmlDoc.GetElementsByTagName("khxx")
        For Each dr As object In ndlist
            Dim ndr As DataRow = DataTables("表C").find("名称 = '" & dr("MC").innertext  & "'")
            If ndr Is Nothing Then ndr = DataTables("表C").addnew
            For Each n As System.XML.XmlNode In dr.childNodes
                output.show(n.Name & " = " & n.InnerText)
                If n.name = "MC=" Then
                    ndr("名称") = n.innertext
                End If
                If n.name = "NSRSBH=" Then
                    ndr("税号") = n.innertext
                End If
                If n.name = "DZ=" Then
                    ndr("地址电话") = n.innertext
                End If
                If n.name = "YHZH=" Then
                    ndr("银行账号")  = n.innertext
                End If
            Next
        Next
    End If
Next

这个错了吗？

For Each f As String In FileSys.GetFiles(dzml3)
    If f.EndsWith(".xml") Then
        Dim txt As String = FileSys.ReadAllText(f, Encoding.Default)
        Dim xmlDoc As New System.XML.XmlDocument
        xmlDoc.Loadxml(txt.Trim)
        Dim ndList  = xmlDoc.GetElementsByTagName("Row")
        For Each dr As object In ndlist
            Dim ndr As DataRow = DataTables("表C").find("名称 = '" & dr.Attributes("MC").value  & "'")
            If ndr Is Nothing Then ndr = DataTables("表C").addnew
            For Each n As System.XML.XmlNode In dr.childNodes
                output.show(n.Name & " = " & n.InnerText)
                If n.name = "MC=" Then
                    ndr("名称") = n.innertext
                End If
                If n.name = "NSRSBH=" Then
                    ndr("税号") = n.innertext
                End If
                If n.name = "DZ=" Then
                    ndr("地址电话") = n.innertext
                End If
                If n.name = "YHZH=" Then
                    ndr("银行账号")  = n.innertext
                End If
            Next
        Next
    End If
Next

没有填入数据，只增加行了