你既然是想加入，你是不是要赋值？
For Each rr2 As DataRow In rr2s
Dim ndr As DataRow = DataTables("扫描配货明细").AddNew
ndr("第一列") = rr2("第一列")
Next
加好友 
发短信
Post By：2016/6/2 15:03:00 [显示全部帖子]
