主题：[求助]xml文件导入Foxtable表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工程.zip

师傅一点思路都没有，怎么导入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入xml.zip

甜师傅，还是搞不定

甜师傅，基本搞定了，余下再好好研究

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx1 As Integer = txt.IndexOf("<GCZJWJ") '标签范围开始
    Dim idx2 As Integer = txt.IndexOf("</GCZJWJ>")'标签范围结束   
    Dim s As String = txt.SubString(idx1, idx2-idx1+9)'这里为什么要加9
    Dim xmlDoc As New System.XML.XmlDocument
    'MessageBox.Show(0)
    xmlDoc.Loadxml(s)   
    Dim ndList  = xmlDoc.GetElementsByTagName("QDXM")'要赋值的标签  清单项目*****   
    MessageBox.Show(ndList.count - 1)   
    For i As Integer = 0 To ndList.count - 1
        'MessageBox.Show(2)       
        Dim nr As Row = Tables("清单项目").AddNew
        nr("第一列") = ndList(i).Attributes("XMMC").value'以上标签内  内容赋值  项目名称,要同一个标签内       
    Next   
End If