最简单的xml问题

Question

呵呵，忘记了一下段：
private void btnisok_Click(object sender, System.EventArgs e)
{
fstime = this.dateTimePicker1 .Value .ToShortTimeString ();
jstime = this.dateTimePicker2 .Value .ToShortTimeString (); savetime();
this.Close ();
}
————————————————————————————
这段才是按钮调用的程序，然后它在调用savetime(),我想用它把时间选择框的时间保存到 xml文件

Answer 1

ChildWrite方法应该改成这样：
public void ChildWrite(string key,string Childkey,string value)
  {
   XmlNode node = doc.DocumentElement.SelectSingleNode(key);
   if (node == null) {
   node = doc.CreateElement(key);
   doc.DocumentElement.AppendChild(node);
   }
   XmlNode node2=node.SelectSingleNode(Childkey);//以前出错的行，出错原因node为null。
   if(node2!=null)
   {
    node2.InnerText=value;
   }
   else
   {
    XmlNode node3=doc.CreateElement(Childkey);
   
    node.PrependChild(node3);
    node3.InnerText=value;
    
   }
  }然后写完了要记得保存。

Answer 2

哪块出错啊？先给个xml操作节点的例子：
WebForm的，但道理类似
Imports System.IO
Imports System.Xml
Imports System.Xml.XmlNode
Public Class WebForm1
    Inherits System.Web.UI.Page#Region " Web Form Designer Generated Code "    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim objDom As New XmlDocument()
        objDom.LoadXml("<?xml version='1.0' encoding='GB2312'?><Root><Family></Family></Root> ")
        Dim d As New XmlDocument()
        Dim root As XmlNode = objDom.DocumentElement        Dim e1 As XmlElement = objDom.SelectSingleNode("/Root/Family")        Dim elem As XmlElement = objDom.CreateElement("Member")
        Dim elemAtt As XmlAttribute = objDom.CreateAttribute("ID")
        elemAtt.Value = "XXX"
        elem.Attributes.SetNamedItem(elemAtt)
        e1.AppendChild(elem)        Dim elem1 As XmlElement = objDom.CreateElement("MemName")
        elem1.InnerText = "XXX"
        Dim elem2 As XmlElement = objDom.CreateElement("MemBirth")
        elem2.InnerText = "XXX"
        Dim elem3 As XmlElement = objDom.CreateElement("MemPoiltic")
        elem3.InnerText = "XXX"
        Dim elem4 As XmlElement = objDom.CreateElement("MemDuty")
        elem4.InnerText = "XXX"        elem.AppendChild(elem1)
        elem.AppendChild(elem2)
        elem.AppendChild(elem3)
        elem.AppendChild(elem4)
        e1.AppendChild(elem)
        objDom.Save("c:\t.xml")
        Response.ContentType = "text/xml"
        Response.Write((objDom.InnerXml))
    End SubEnd Class