“例子二”表格里有一个窗口“自动不重复取数”按钮,其代码如下:
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
想把“例子三”表格里产品名称自动不重复添加到“例子一”,上述代码无法作到不重复添加进“例子一”,请教大师们应如何添加判断不重复程序代码?