Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将【开piao明细2023.xlsm】中数据合并到项目中报错


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

主题：[求助]将【开piao明细2023.xlsm】中数据合并到项目中报错
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		[求助]将【开piao明细2023.xlsm】中数据合并到项目中报错  发帖心情 Post By：2023/11/1 23:42:00 [只看该作者]

图片点击可在新窗口打开查看
[此贴子已经被作者于2023/11/1 23:42:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/1 23:47:00 [只看该作者]

Case "SuperaddDatas"
        Dim mg As New Merger
'        MessageBox.Show()
        mg.SourcePath = ProjectPath & "开piao明细2023.xlsm"
        mg.Format = "Excel2007" '指定格式
        mg.SourceTableName = "开piao明细$" '
        mg.Fields = "fa piao号码,账单编号,fa piao种类,购方名称,开piao日期,金额,税额,服务名称"
        
        Dim fphm As WinForm.TextBox = e.Form.Controls("txt_FPHM")
        
        '如果文本框为空就按【账单编号】合并，反之就按【fa piao号码】合并
        If fphm.Value = "" Then
            mg.Filter = "账单编号 = '" & Tables("tblEarning_Cash").Current("账单编号") & "'"
        Else          
            fphm.Value = Functions.Execute("FormatStrings", fphm.Value)
            mg.Filter = "fa piao号码 In (" & fphm.Value & ")"
        End If

        mg.DataTableName = "tblInvoiceDetails_Cash" '指定接收数据的表
        mg.Merge() '开始合并
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/1 23:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：合并.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/2 9:12:00 [只看该作者]

另存为xlsx文件在导入

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


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/2 9:38:00 [只看该作者]

将mg.Format = "Excel2007"改为“Excel”后，合并正常了，可仅合并了1条记录，
测试数据为3条记录，不知何故？
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
上图是: MessageBox.Show(mg.Filter)
[此贴子已经被作者于2023/11/2 9:43:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/2 10:04:00 [只看该作者]

请老师指点！

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


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/2 10:29:00 [只看该作者]

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


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

很明显截图的有换行的，也就是获取的数据里有回车换行符，要去掉

mg.Filter = "fa piao号码 In (" & fphm.Value.replace(vbcr,"").replace(vblf,"")  & ")"
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/2 10:42:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2023/11/2 10:43:00 [只看该作者]

问题依旧，这是命令行测试。
[此贴子已经被作者于2023/11/2 10:43:15编辑过]
 回到顶部
总数 39 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询