- 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=134166)
-- 发布时间：2019/4/28 22:58:00
-- [求助]生成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)
此主题相关图片如下：111.jpg
Dim jo As New XObject
jo("Name") = "张三"
jo("Group") = "VIP"
jo("Roles") = New Jarray("manager","developer") \'定义数组
jo("Type") = 2
Output.Show(jo.ToXML)
此主题相关图片如下：222.jpg
-- 发布时间：2019/4/29 10:43:00
--
卸载重装你的foxtable，然后测试。