- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]XML导入导出可以自行编写代码吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71377)
-- 发布时间：2015/7/10 10:34:00
-- [求助]XML导入导出可以自行编写代码吗？
XML导入导出可以自行编写代码吗？
-- 发布时间：2015/7/10 11:59:00
--
-- 发布时间：2015/7/10 12:00:00
--
Dim aaa As New System.io.StreamWriter("c:\\data\\test.xml")
DataTables("出库").baseTable.WriteXml(aaa)
aaa.Close
-- 发布时间：2015/7/10 12:07:00
--
查了一下，原来很简单
Tables("表A").Grid.WriteXml("d:\\test.xml")
\'---------------
Tables("表A").Grid.ReadXml("d:\\test.xml")
-- 发布时间：2015/7/10 13:48:00
--
查了一下，原来很简单
Tables("表A").Grid.WriteXml("d:\\test.xml")
\'---------------
Tables("表A").Grid.ReadXml("d:\\test.xml")
谢谢您的解答。
新问题：
如何进行节点设置？
如节点一 下面汇总 客户1的内容；
如节点二 下面汇总 客户2的内容；
或者
如节点一 下面汇总 “表A”的内容；
如节点二 下面汇总 “表B”的内容；
虚心请教！还劳费心！
-- 发布时间：2015/7/10 14:14:00
--
你说这个意思？
Tables("表A").Filter = "客户 = \'aaa\'"
Tables("表A").Grid.WriteXml("d:\\test.xml")
-- 发布时间：2015/7/10 15:51:00
--
你说这个意思？
Tables("表A").Filter = "客户 = \'aaa\'"
Tables("表A").Grid.WriteXml("d:\\test.xml")
此主题相关图片如下：qq截图20150710144848.jpg
有劳【大红袍】版主
-- 发布时间：2015/7/10 16:18:00
--
操作XML代码，参考，自己变通着写
Dim doc As New System.XML.XmlDocument()
doc.LoadXml("<book xmlns:bk=\'urn:samples\' bk:ISBN=\'1-861001-57-5\'>" & _
"<title>Pride And Prejudice</title>" & _
"</book>")
Dim root As System.XML.XmlNode = doc.FirstChild
\'Create a new attribute.
Dim ns As String = root.GetNamespaceOfPrefix("bk")
Dim attr As System.XML.XmlNode = doc.CreateNode(System.XML.XmlNodeType.Attribute, "genre", ns)
attr.Value = "novel"
\'Add the attribute to the document.
root.Attributes.SetNamedItem(attr)
\' Save the document to a file and auto-indent the output.
Dim stream As new System.Io.FileStream("d:\\aaa.xml", System.Io.FileMode.OpenOrCreate, System.Io.FileAccess.Write)
doc.Save(stream)
stream.Close()
https://msdn.microsoft.com/zh-cn/library/system.xml.xmldocument_members%28v=vs.80%29.aspx
-- 发布时间：2015/7/11 14:14:00
--
谢谢【大红袍】版主