以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体有个副本表，加载时如何去除重复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70635)
--  作者：dj68301367
--  发布时间：2015/6/25 14:53:00
--  窗体有个副本表，加载时如何去除重复
窗体有个副本表，加载时如何去除重复
--  作者：Bin
--  发布时间：2015/6/25 14:56:00
--  
http://www.foxtable.com/help/topics/2712.htm
--  作者：dj68301367
--  发布时间：2015/6/29 15:41:00
--  
BIn 如果需要加条件表达式，需要怎么处理
如 Tables("表A").RepeatFilter("第一列", 1) 我想让符合第二列等于订单号。
--  作者：dj68301367
--  发布时间：2015/6/29 15:59:00
--  
顶一下
--  作者：大红袍
--  发布时间：2015/6/29 16:07:00
--  
Tables("表A").filter = "第二列 = \'1\'"
Tables("表A").RepeatFilter("第一列", 1)

 
--  作者：dj68301367
--  发布时间：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
--  作者：大红袍
--  发布时间：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