问题出在整体复制时候把所有清单都复制过来了，而不是只复制与统计表项目ID列相同的清单，如何只复制项目ID相同的清单？
'整体复制清单,按期填写清单完成量
e.DataRow.save
systemready = False
Dim Cols1() As String ={"清单ID","单位工程","清单号","清单名称","单位","单价","数量","项目ID"}
Dim Cols2() As String ={"清单ID","单位工程","清单号","清单名称","单位","单价","数量","项目ID"}
For Each dr1 As DataRow In DataTables("清单").Select("")
Dim dr2 As DataRow = DataTables("完成明细").find("项目ID= '" & dr1("项目ID") & "' and 清单id= '" & dr1("清单id") & "' and _Identify = " & e.DataRow("_Identify"))
If dr2 Is Nothing Then dr2 = DataTables("完成明细").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("统计id") = e.DataRow("_Identify")
Next
systemready = True
加好友 
发短信
Post By：2017/11/9 15:39:00 [显示全部帖子]
此主题相关图片如下：1510212815(1).png
