以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用merger合并数据，如何跳过已有订单编号的订单。。。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45187)
--  作者：fubblyc
--  发布时间：2014/1/17 16:58:00
--  用merger合并数据，如何跳过已有订单编号的订单。。。

用merger合并数据，如何跳过已有订单编号的订单。。。

 

Dim mg As New Merger
mg.SourcePath = "c:\\data\\销售管理.accdb"
mg.Format = "Access2007" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.FieldMaps.Add("ID","编号") \'将指定ID列的数据合并到编号列中
mg.Filter = "[日期] > #5/31/1999#" \'指定合并条件
mg.Merge() \'开始合并

 

是不是在这条：mg.Filter = "[日期] > #5/31/1999#" 怎么修改下？？

 
--  作者：Bin
--  发布时间：2014/1/17 17:20:00
--  
    Dim ids As String
    For Each dr As DataRow In DataTables("订单").DataRows
        ids = ids & ",\'" & dr("订单编号") & "\'"
    Next
    ids= ids.Trim(",")
    mg.Filter = = "订单编号 not In (" & ids & ")"
--  作者：fubblyc
--  发布时间：2014/1/17 17:22:00
--  
谢谢BIN.