填充数据时有相同的不填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：仓库仓库.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))

End If

仓库名称不是空的行就复制对吧？现货库存明细没有数据时点按钮一次复制正确，再点按钮初始库存明细没有新数据不用复制。现在没有新增数据的情况下，点下按钮就会复制最后一条数据，要修改代码哪里？

主题：填充数据时有相同的不填充