主题：如何将XML数据读入到表中呢！

1、你的xml文件要另存为中文字符的格式。

2、代码

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load(ProjectPath & "33.xml")
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("CPaymentDetailsEntity")
msgbox(ndlist.count)
For i As Integer = 0 To ndList.count - 1
    Dim nr As Row = Tables("表A").AddNew
    nr("id") = ndList(i).item("ID").InnerText
    Return Nothing
Next