窗体有个副本表，加载时如何去除重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体有个副本表，加载时如何去除重复

共有2418人关注过本帖树形打印复制链接主题：窗体有个副本表，加载时如何去除重复

dj68301367

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

加好友

发短信

等级：小狐帖子：367 积分：2805 威望：0 精华：0 注册：2015/4/12 12:13:00

窗体有个副本表，加载时如何去除重复 发帖心情

Post By：2015/6/25 14:53:00 [只看该作者]

窗体有个副本表，加载时如何去除重复

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/25 14:56:00 [只看该作者]

http://www.foxtable.com/help/topics/2712.htm

dj68301367

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

加好友

发短信

等级：小狐帖子：367 积分：2805 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/29 15:41:00 [只看该作者]

BIn 如果需要加条件表达式，需要怎么处理

如 Tables("表A").RepeatFilter("第一列", 1) 我想让符合第二列等于订单号。

dj68301367

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

加好友

发短信

等级：小狐帖子：367 积分：2805 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/29 15:59:00 [只看该作者]

顶一下

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/29 16:07:00 [只看该作者]

Tables("表A").filter = "第二列 = '1'"
Tables("表A").RepeatFilter("第一列", 1)

dj68301367

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

加好友

发短信

等级：小狐帖子：367 积分：2805 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/29 17:13:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.foxdb

通知单号	产品型号	物料编码	请购单号	数量
DD001	CB001	WL001	Dh001	100
DD001	CB002	WL001	Dh001	100
DD001	CB003	WL001	Dh001	100
DD002	CB001	WL001	Dh001	100
DD002	CB002	WL001	Dh001	100
DD002	CB003	WL001	Dh001	100

以上是明细表‘汇总表如下，我想做到的时根据请购单号和料号汇总需请购数量，把需请购的通知单号明细分别输入到请购简介当中

Dh001 WL001 500 DD001/300

DD002/200

Dh001 WL003 100 DD002/100

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/29 17:26:00 [只看该作者]

Dim dt_mx As DataTable = DataTables("请购明细")
Dim dt_hz As DataTable = DataTables("请购汇总")
dt_hz.DataRows.Clear
For Each ary() As String In dt_mx.GetValues("请购单号|物料编码")
    Dim ndr As DataRow = dt_hz.AddNew
    ndr("请购单号") = ary(0)
    ndr("物料编码") = ary(1)
    Dim filter As String = "请购单号 = '" & ary(0) & "' and 物料编码 = '" & ary(1) & "'"
    ndr("数量") = dt_mx.Compute("sum(数量)", filter)
    Dim str As String = ""
    For Each s As String In dt_mx.GetValues("通知单号",filter)
        str &= iif(str>"", vbcrlf, "") & s & "/" & dt_mx.Compute("sum(数量)", filter & " and 通知单号 = '" & s & "'")
    Next
    ndr("请购简介") = str
Next

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

主题：窗体有个副本表，加载时如何去除重复