mg.DataTableName = str '指定接收数据的表
mg.Merge() '开始合并
For Each dr As DataRow In DataTables(str).DataRows
If dr.RowState=DataRowState.Added Then
dr("关联列") = Tables("盘点表").Current("ZBID")
dr("关联列2") = Tables("盘点表").Current("LCMC")
End If
Next
DataTables(str).Save() '保存数据
Forms("导入数据").Close
MessageBox.show("恭喜您!数据导入成功!","天地方舟小助手") '导入后给于提示