在执行代码时，有部分数据丢失 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Cols1() As String = {"入库日期","客户代码","客户名称","定单号码","品名","件数","数量","单价","长","宽","高","毛重","单位"}

Dim Cols2() As String = {"入库日期","客户代码","客户名称","定单号码","品名","件数","数量","单价","长","宽","高","毛重","单位"}

For Each dr1 As DataRow In DataTables("入库明细").Select("[选择] = true")

Dim dr2 As DataRow = DataTables("出库明细").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

dr2("箱号") = dr1("首箱号") & dr1("尾箱号")

dr1.Delete()

在执行这段代码时，出库明细表中有部分箱号数据丢失了，为空白或是只有首箱号，并没有把dr1("首箱号") & dr1("尾箱号")合成起来，是为什么？

主题：在执行代码时，有部分数据丢失