主题：求助代码

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

 

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

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