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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 相同记录合并

共有3886人关注过本帖树形打印复制链接主题：[求助] 相同记录合并

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

[求助] 相同记录合并 发帖心情

Post By：2020/1/1 10:24:00 [只看该作者]

最近购买了这个Foxtable，有点不会用，请老师帮助一下

对表A中的相同记录进行合并:

只要出货日期，产品名称相同

1.出货数量就相加

2.并对项目名称进行合并，用逗号隔开，相同的就取一个，如 AA,BB,CC

3.库存数量相加

4.采购数量相同就取一个，不同就用逗号隔开

把生成的记录存于表B中

另外再自动生成一个临时表Q

谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:记录加总合并.foxdb

[此贴子已经被作者于2020/1/1 10:25:04编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/2 9:16:00 [只看该作者]

添加一个按钮，代码

Dim dr As DataRow

For Each sr As String() In DataTables("表A").GetValues("出货日期|产品名称","出货日期 is not null")

dr = DataTables("表B").AddNew

dr("出货日期") = sr(0)

dr("产品名称") = sr(1)

dr("出货数量") = DataTables("表A").Compute("sum(出货数量)", "产品名称='" & sr(1) & "' And 出货日期=#" & sr(0) & "#")

dr("项目名称") = DataTables("表A").GetComboListString("项目名称", "产品名称='" & sr(1) & "' And 出货日期=#" & sr(0) & "#").Replace("|",",")

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/1/2 12:20:00 [只看该作者]

谢谢老师，可以再自动产生个临时表Q吗？感谢。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/2 13:39:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))

g.Groups.AddDef("出货日期", DateGroupEnum.None)

g.Groups.AddDef("产品名称")

g.Totals.AddDef("出货数量")

g.Totals.AddDef("库存数量")

g.Filter = "出货日期 is not null"

g.Build()

MainTable = Tables("统计表1")

DataTables("统计表1").DataCols.Add("项目名称",Gettype(String))

For Each dr As DataRow In DataTables("统计表1").DataRows

dr("项目名称") = DataTables("表A").GetComboListString("项目名称", "产品名称='" & dr("产品名称") & "' And 出货日期=#" & dr("出货日期") & "#").Replace("|",",")

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/1/2 19:08:00 [只看该作者]

老师，我增加了个采购数量，以下出错了，可以纠正一下吗？感谢。

dr("项目名称") = DataTables("表A").GetComboListString("项目名称", "产品名称='" & dr("产品名称") & "'And "采购数量='" & dr("采购数量") & "' And 出货日期=#" & dr("出货日期") & "#").Replace("|",",")

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/3 8:28:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1284.htm

dr("项目名称") = DataTables("表A").GetComboListString("项目名称", "产品名称='" & dr("产品名称") & "' And 采购数量='" & dr("采购数量") & "' And 出货日期=#" & dr("出货日期") & "#").Replace("|",",")