编程合并数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编程合并数据

共有1776人关注过本帖树形打印复制链接主题：编程合并数据

feng1999

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

编程合并数据 发帖心情

Post By：2017/11/15 12:49:00 [显示全部帖子]

老师好，合并数据是遇到一些问题，当时合并的时候运用了系统菜单中的编程语句：Syscmd.Table.QuickMerge()

现在我想合并选中的某个Excel中的某条数据，请问如何进行更改编程语句？参考了合并数据编程语句还是老是提示错误信息

feng1999

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

Post By：2017/11/15 12:55:00 [显示全部帖子]

这是更改后合并整个sheet表的编程语句，但是具体到某行数据是老是提示错误

Dim mg As New Merger

mg.SourcePath = ProjectPath & "企业动力数据\企业动力数据.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = "电池$" '指定要合并的表

mg.DataTableName = "电池" '指定接收数据的表

mg.Merge() '开始合并

feng1999

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

Post By：2017/11/15 15:51:00 [显示全部帖子]

老师好：这个项目中导入按钮实现的是无条件进行合并，如果我想实现以下两个功能如何完成？根据老师提供的模板还是无法实现以下功能

1.合并前根不相同，根据供应商、日期、暂收单号、采购单号、材料代号进行判断，如果相同，则不进行合并，如果不相同，则进行合并

2.如果在Excel中选中某一行的数据想进行合并，则只合并一条数据，其他数据不进行合并

主题：编程合并数据