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)