在《产品目录》表中提取不重复的产品名称和产品颜色，增加到《库存表》中，以下只能增加一次内容。
目的是按月重复增加产品名称和产品颜色，并且在日期列填入日期（如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
加好友 
发短信
Post By：2024/9/14 9:30:00 [显示全部帖子]
