在《产品目录》表中提取不重复的产品名称和产品颜色，增加到《库存表》中，以下只能增加一次内容。
目的是按月重复增加产品名称和产品颜色，并且在日期列填入日期（如202201）。
敬请老师指导代码怎么修改，谢谢！
Dim av As List(Of String())
av = DataTables("产品目录").GetValues("产品名称|产品颜色")
For i As Integer = 0 To av.Count - 1
Dim dr As DataRow = DataTables("库存表").Find("产品名称='" & av(i)(0) & "' And 产品颜色='" & av(i)(1) & "'")
If dr Is Nothing Then
dr = DataTables("库存表").AddNew()
dr("产品名称") = av(i)(0)
dr("产品颜色") = av(i)(1)
'dr("日期") = av(i)(2)
End If
Next
【If dr Is Nothing Then】这个判断的意思是如果"库存表"已经有同样的产品名称和产品颜色的数据就不会再增加了
加多一个条件试试
Dim dr As DataRow = DataTables("库存表").Find("产品名称='" & av(i)(0) & "' And 产品颜色='" & av(i)(1) & "' and 日期='202201'")