Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教用代码合并XML文件问题


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

主题：请教用代码合并XML文件问题
帅哥哟，离线，有人找我吗？
13315253800
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		请教用代码合并XML文件问题  发帖心情 Post By：2024/3/8 10:53:00 [只看该作者]

蓝老师您好，我合并XML文档的代码如下，但提示错误，请蓝老师指导

'打开文件对话框，合并用户指定的文件

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "XML文档|*.xml" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    mg.SourceTableName = "BasicInformation" '要合并源表的名称

    mg.DataTableName = "合计金额" '接收合并数据的数据表的名称

    mg.Merge()'合并表

End If

执行代码后提示

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2022.8.18.1

错误所在事件：

详细错误信息：

不可识别的数据库格式

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/8 10:57:00 [只看该作者]

Merger不支持XML文档，只能使用下面的系统命令

Syscmd.Table.MergeFromXML()
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/3/8 11:18:00 [只看该作者]

蓝老师，

Syscmd.Table.MergeFromXML()的使用格式是怎样的，有使用案例吗，请指导
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/8 11:27:00 [只看该作者]

这个功能发布后不能使用的。

建议这种方式手工分析xml：http://www.foxtable.com/mobilehelp/topics/0171.htm

比如

Dim xml As String = "<xml><to>George</to><from>John</from><content>Don't forget the meeting!</content></xml>"
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)
Dim r As Row = Tables("表A").AddNew
r("发送人") = xo("to")
r("接收人") = xo("from")
r("内容") = xo("content")
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/3/11 14:19:00 [只看该作者]

蓝老师如果一个XML文件有多个表，要分别导入狐表相应的表中怎样写代码？例如将“24132.XML”文件中“Header”表的EIid列和“SellerInformation”表的SellerIdNum及SellerName两列，分别导入狐表“Header”和“SellerInformation”表中，用下面的代码就不行了

Dim fl As String = "F:\测试项目\24132.XML"

Dim xml As String = FileSys.ReadAllText(FL)

Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

Dim r As Row = Tables("Header").AddNew

r("EIid") = xo("EIid")

请蓝老师指导
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/11 14:30:00 [只看该作者]

xml文档的结构是怎么样的

 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/3/11 14:37:00 [只看该作者]

如

 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/3/11 14:38:00 [只看该作者]

<?xml version="1.0" encoding="utf-8" standal?>
<EInvoice>
    <Header>
        <EIid>24132000000024297906</EIid>
        <EInvoiceTag>SWEI1300</EInvoiceTag>
        <Version>0.31</Version>
      <SellerInformation>
            <SellerIdNum>92130608MA08K6LB3J</SellerIdNum>
            <SellerName>保定市国景办公家具销售部</SellerName>
            <SellerAddr>河北省保定市清苑区建设南路93号</SellerAddr>
            <SellerTelNum>15131278711</SellerTelNum>
            <SellerBankName>清苑县农村信用联社股份有限公司</SellerBankName>
            <SellerBankAccNum>243030122000014842</SellerBankAccNum>
        </SellerInformation>
        <BuyerInformation>
            <BuyerIdNum>91130605743445377K</BuyerIdNum>
            <BuyerName>河北集团有限公司</BuyerName>
            <BuyerTelNum>0312-5800618</BuyerTelNum>
            <BuyerAddr>河北省保定市清苑区朝阳南大街3988号</BuyerAddr>
            <BuyerBankName>中国建设银行股份有限公司清苑支行</BuyerBankName>
            <BuyerBankAccNum>13050166720800002239</BuyerBankAccNum>
        </BuyerInformation>
        <BasicInformation>
            <TotalAmWithoutTax>2524.75</TotalAmWithoutTax>
            <TotalTaxAm>25.25</TotalTaxAm>
            <TotalTax-includedAmount>2550.00</TotalTax-includedAmount>
            <TotalTax-includedAmountInChinese>贰仟伍佰伍拾圆整</TotalTax-includedAmountInChinese>
            <Drawer>周树新</Drawer>
            <RequestTime>2024-03-05 17:41:21</RequestTime>
        </BasicInformation>
       
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/11 14:42:00 [只看该作者]

数据要一层层的取

r("EIid") = xo("EInvoice")("Header")("EIid")
 回到顶部
帅哥哟，离线，有人找我吗？
13315253800
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：3886 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2024/3/11 16:22:00 [只看该作者]

蓝老师我导入一个表成功了，再导入第二个表就不行了，请指导

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:项目测试.zip
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询