这种不对称的要如何生成XML - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim jo As New Foxtable.XObject

jo("@id") = "FPKJ"

jo("REQUEST_COMMON_FPKJ") = new JObject

jo("REQUEST_COMMON_FPKJ")("@class") = "REQUEST_COMMON_FPKJ"

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT") = new JObject

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT")("@class") = "COMMON_FPKJ_FPT"

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT")("FPQQLSH") = "2104181724080000001"

'其它属性

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS") = new JObject

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS")("@class") = "COMMON_FPKJ_XMXX"

'其它属性

Dim ja As New JArray

Dim so As new JObject

so("FPHXZ") = 0

so("FPHXZ") = "1090413010100000000"

'其它属性

ja.Add(so)

so = new JObject

so("FPHXZ") = 0

so("FPHXZ") = "1090413050000000000"

'其它属性

ja.Add(so)

jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS")("COMMON_FPKJ_XMXX") = ja

Dim jo2 As New Foxtable.XObject

jo2("business") = jo

Output.Show(jo2.ToXML)

主题：这种不对称的要如何生成XML