主题：[求助]生成xml提示错误，复制帮助的原代码也是错误？

Dim r As Row = Tables("自媒体中间库").current

Dim zps1 As List(of String)

zps1=  r.DataRow.Lines("第1步截图")

Dim xo As New XObject

For n As Integer = 0 To zps1.Count-1

xo("标题") = r("标题")

xo("图片地址") = ProjectPath & "attachments/zjkphoto/" & zps1(n)

Next

MessageBox.show(xo.ToXML)