以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]filler如何禁止添加重复数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104633)
--  作者：magus1123
--  发布时间：2017/8/2 11:19:00
--  [求助]filler如何禁止添加重复数据
有两张表A、表B。
表A是根据最新数据SQL查询出的产品条码，条码全部不会重复。
表B是在软件内部设置的产品条码、对应的供应商之类的信息。

现在用filler设置点击后将表A的条码列中新增的内容导入到表B中，然后在表B中设置产品供应商。

但是遇到一个问题，一个按钮按两三次之后就导入了两三次同样的数据。重复了


        Dim f As New Filler
        f.SourceTable = DataTables("检查产品供应商") 
        f.Filter = "供应商 Is Null"
        f.SourceCols = "条码" 
        f.DataTable = DataTables("产品设置") 
        f.DataCols = "条码" 
        f.Fill() 

有没有办法限制条码列相同的话就不导入了呢？直接设置列属性不允许重复可行吗？
--  作者：magus1123
--  发布时间：2017/8/2 11:29:00
--  
解决了，filler的属性设置        f.ExcludeExistValue = True 就可以排除已有内容

改完后代码如下：

  Dim f As New Filler
        f.SourceTable = DataTables("检查产品供应商") 
        f.Filter = "供应商 Is Null"
        f.SourceCols = "条码" 
f.ExcludeExistValue = True 
        f.DataTable = DataTables("产品设置") 
        f.DataCols = "条码" 
        f.Fill() 


给狐友们参考一下