主题：求助代码

“例子二”表格里有一个窗口“自动不重复取数”按钮，其代码如下：

 

With DataTables("例子一") '打开表

    .DataRows.Clear() '清除所有行

End With

For Each dr As DataRow In DataTables("例子三").Select("产品 Is Not Null")

    Dim dr1 As DataRow = DataTables("例子一").AddNew()

    dr1("产品") = dr("产品") 

Next

 

想把“例子三”表格里产品名称自动不重复添加到“例子一”，上述代码无法作到不重复添加进“例子一”，请教大师们应如何添加判断不重复程序代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:流水账.rar

DataTables("例子一").DataRows.Clear() '清除所有行

For Each s As String In DataTables("例子三").GetValues("产品")

    Dim dr As DataRow = DataTables("例子一").AddNew()

    dr("产品") = s

Next

 按钮代码

 

With DataTables("例子一") '打开表
    .DataRows.Clear() '清除所有行
End With
Dim f As New Filler
f.SourceTable = DataTables("例子三") '指定数据来源
f.SourceCols = "产品" '指定数据来源列
f.DataTable = DataTables("例子一") '指定数据接收表
f.DataCols = "产品" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据

测试成功，多谢大师指点。