此主题相关图片如下:仓库仓库.png
Dim Cols1() As String = {"仓库名称", "品名", "材质", "规格", "产地", "长度", "库存数量", "库存重量", "车船号", "货位号", "计量方式", "机构", "部门", "日期"}
Dim Cols2() As String = {"仓库名称","品名","材质","规格","产地","长度","库存数量","库存重量","车船号","货位号","入库计量方式","机构","部门","进货日期"}
For Each dr1 As DataRow In DataTables("初始库存明细").Select("仓库名称 is not null")
Dim dr2 As DataRow = DataTables("现货库存明细").find("品名='" & dr1("品名") & "' and 材质='" & dr1("材质") & "'and 规格='" & dr1("规格") & "' and 产地='" & dr1("产地") & "' and 库存数量=" & dr1("库存数量") & " and 库存重量=" & dr1("库存重量") & " and 车船号='" & dr1("车船号") & "' and 货位号='" & dr1("货位号") & "' and 入库计量方式='" & dr1("计量方式") & "' and 机构='" & dr1("机构") & "' and 部门='" & dr1("部门") & "' and 进货日期=#" & dr1("日期") & "#")
If dr2 Is Nothing Then
dr2 = DataTables("现货库存明细").AddNew()
For i As Integer = 0 To Cols1.Length - 1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
End If
Next
仓库名称不是空的行就复制对吧?现货库存明细没有数据时点按钮一次复制正确,再点按钮初始库存明细没有新数据不用复制。现在没有新增数据的情况下,点下按钮就会复制最后一条数据,要修改代码哪里?