以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导入求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78662)
--  作者：幺幺倾城
--  发布时间：2015/12/14 16:40:00
--  [求助]导入求助

此种导入法，会将重复项剔除，可是我想全部导入，怎么办？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
--  作者：大红袍
--  发布时间：2015/12/14 16:42:00
--  

If msgbox("是否进行追加操作?",65,"提示")=1 Then
    DataTables("订单").datarows.clear()
    Dim f As New Filler
    f.SourceTable = DataTables("临时表") \'指定数据来源
    f.SourceCols = "规格型号,订单数量" \'指定数据来源列
    f.DataTable = DataTables("订单") \'指定数据接收表
    f.DataCols = "规格型号,订单数量" \'指定数据接收列
    f.Distinct = False
    f.ExcludeExistValue = False
    f.Fill() \'填充数据
    DataTables("订单").save
End If

 

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

 
--  作者：幺幺倾城
--  发布时间：2015/12/14 16:43:00
--  
谢谢谢谢，灰常感谢