將ds作為新數據集降維
ds。ReadXml（路徑）
Dim dt As DataTable = ds。表格。項目（0）
Dim blnY As Boolean = True
作為dt中的DataRow。行
if row . item（“translation“）。tostring . toupper =“confirm“然後
劃。Item（“翻譯”）=“替換”
blnY = False
出口到
如果…就會結束
然後
如果blnY那麽
MsgBox（“輸入的XXX不存在，請重新輸入！“)
返回
如果…就會結束
ds。WriteXml（路徑）
MessageBox。Show（“數據修改並保存成功”、“提示”、messageboxbuttons.ok、messageboxicon.information）。
或者
Dim xmlDoc作為新的XmlDocument（）
將節點列表降維為新的XmlNodeList
XML doc . load（“life...XML“）“正在加載。
dimnodelist as xmlnodelist = XML doc。選擇單點。（“翻譯”）。“ChildNodes”獲取書店節點的所有子節點。
將xn標註為XmlNode
“For Each xn In nodeList”遍歷所有子節點。
‘dim xe as XmlElement = ctype（xn，XML element）‘將子節點類型轉換為XML element類型。
“dim nls as xmlnodelist = xe . child nodes”繼續獲取xe子節點的所有子節點。
Dim xn1作為XmlNode
對於nls遍歷中的每個xn1
dimxe 2 as XML element = ctype（xn 1，XML element）‘轉換類型
如果xe2。name =“Translation“Then‘If found。
Xe2。inner text =“replace“進行修改。
每個出口都要找到出口。
如果…就會結束
下壹個xn1
下壹個xn
XmlDoc。save（“life . XML“）“保存。
MessageBox。show（“XML修改成功”、“prompt”、messageboxbuttons.ok、messageboxicon.information）。
看看我能不能幫到妳！