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

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

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

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=111428&skin=0

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

点击浏览该文件:导入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