Dim f As New Filler
f.SourceTable = DataTables("通讯录") \'指定数据来源
f.SourceCols = "姓名,客户ID,客户供应商,企业信息_街道社区,企业信息_税号" \'指定数据来源列
f.DataTable = DataTables("客户供应商") \'指定数据接收表
f.DataCols = "姓名,客户ID,客户供应商,地址,税号" \'指定数据接收列
f.Filter = "群组分类 = \'客户\' or 群组分类 = \'供应商\'"
f.ExcludeExistValue = True
f.Fill() \'填充数据

老师，上面的代码有重复的客户名称或供应商名称出现。我用代码禁止重复还是不行

If e.DataCol.Name = "客户ID" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("客户ID = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此客户ID已经存在!")
        e.Cancel = True
    End If
End If