以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按月库存,重复增加行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193444)

--  作者:liuandwang
--  发布时间:2024/9/14 9:30:00
--  按月库存,重复增加行
在《产品目录》表中提取不重复的产品名称和产品颜色,增加到《库存表》中,以下只能增加一次内容。
目的是按月重复增加产品名称和产品颜色,并且在日期列填入日期(如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

--  作者:有点蓝
--  发布时间:2024/9/14 9:37:00
--  
【If dr Is Nothing Then】这个判断的意思是如果"库存表"已经有同样的产品名称和产品颜色的数据就不会再增加了

加多一个条件试试

Dim dr As DataRow = DataTables("库存表").Find("产品名称=\'" & av(i)(0) & "\' And 产品颜色=\'" & av(i)(1) & "\' and 日期=\'202201\'")