| 以文本方式查看主题 - 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\'")
|