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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106731 积分：542850 威望：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("|",",")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106731 积分：542850 威望：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("|",",")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106731 积分：542850 威望：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("|",",")

有点蓝

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

加好友

发短信

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

Post By：2020/1/3 20:35:00 [显示全部帖子]

改为备注型即可

有点蓝

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

加好友

发短信

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

Post By：2020/1/3 20:44:00 [显示全部帖子]

改不了，只能在原表中更改。

有点蓝

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

加好友

发短信

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

Post By：2020/1/10 17:05:00 [显示全部帖子]

这个意思？

g.Filter = "出货日期 < '" & e.form.controls(“日期控件”).value & "'"

下一主题 >> << 上一主题

主题：[求助] 相同记录合并