Foxtable(狐表)用户栏目专家坐堂 → [求助]菜鸟求助生成XML


  共有327人关注过本帖树形打印复制链接

主题:[求助]菜鸟求助生成XML

帅哥哟,离线,有人找我吗?
keli0917
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:75 积分:752 威望:0 精华:0 注册:2018/5/21 16:49:00
[求助]菜鸟求助生成XML  发帖心情 Post By:2019/8/16 12:35:00 [只看该作者]

把两个表里的所有行,根据提供的XMLsample.XML生成一个XML。

麻烦给具体代码,不要让我看示例了。我已经研究了很久,看不懂。特别是那个嵌套加数组,真的不会。谢谢。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.rar

[此贴子已经被作者于2019/8/16 16:46:47编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:38922 积分:197926 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/16 14:15:00 [只看该作者]

Dim tb As Table = Tables("开票信息表头")
Dim xo As New Foxtable.XObject
Dim xja As New JArray
xo("Fp") = xja
For Each rb As Row In tb.Rows
    
    If rb.IsNull("购方名称") = False Then
        Dim jo As New Foxtable.XObject
        jo("Gfmc") = rb("购方名称").Tostring()
        jo("Gfsh") = rb("购方税号").Tostring()
        jo("Gfyhzh") = rb("购方银行账号").Tostring()
        jo("Gfdzdh") = rb("购方地址电话").Tostring()
        jo("Bz") = rb("备注").Tostring()
        jo("Fhr") = rb("复核人").Tostring()
        jo("Skr") = rb("收款人").Tostring()
        jo("Spbmbbh") = rb("商品编码版本号").Tostring()
        jo("Hsbz") = rb("含税标志").Tostring()
        jo("Djh") = rb("Djh").Tostring()
        
        jo("spxx") = New jObject
        Dim ja As New JArray
        'jo("ink")=ja
        jo("spxx")("sph")=ja
        Dim lst As List(of DataRow)=DataTables("开票信息商品").Select("工作号='" & rb("工作号") & "'")
        For i As Integer=0 To lst.count-1
            Dim kr As DataRow=lst(i)
            ja.Add(New JObject)
            ja(i)("Xh")=kr("序号").Tostring()
            ja(i)("Spmc")=kr("商品名称").Tostring()
            ja(i)("Ggxh")=kr("规格型号").Tostring()
            ja(i)("Jldw")=kr("计量单位").Tostring()
            ja(i)("Spbm")=kr("商品编码").Tostring()
            ja(i)("Qyspbm")=kr("企业商品编码").Tostring()
            ja(i)("Syyhzcbz")=kr("优惠政策标识").Tostring()
            ja(i)("Lslbz")=kr("零税率标识").Tostring()
            ja(i)("Yhzcsm")=kr("优惠政策说明").Tostring()
            ja(i)("Dj")=kr("单价").Tostring()
            ja(i)("Sl")=kr("数量").Tostring()
            ja(i)("Je")=kr("金额").Tostring()
            ja(i)("Slv")=kr("税率").Tostring()
            ja(i)("Kce")=kr("扣除额").Tostring()
            ja(i)("Se")=kr("税额").Tostring()
            
        Next
        xja.add(jo)
    End If
    
Next
Dim str As String = xo.ToXML

str = str.SubString(5,str.Length - 11)

str = "<?xml version=""1.0"" encoding=""GBK"" ?> <Kp><Version>2.0</Version><Fpxx><Zsl>2</Zsl><Fpsj>" & str & "</Fpsj></Fpxx></Kp>"
Output.Show(str)

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:75 积分:752 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2019/8/16 15:44:00 [只看该作者]

点击生成XML后没有任何输出。。。。麻烦再看一下

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:38922 积分:197926 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/16 15:48:00 [只看该作者]

学会看懂代码,不要只会抄。我只是把结果显示到命令窗口:Output.Show(str)

保存到文件的用法请用回原先的用法自行处理

 回到顶部