主题：填充

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