主题：查询与赋值并存

For Each a As String In DataTables("母猪基本信息").SQLGetValues("编号")

Dim dr As DataRow = DataTables("母猪分娩断奶信息").SQLFind("[sys_user] = '" & user.Name & "' and [编号] = '" & a & "'","配种日期 desc")

If dr IsNot Nothing Then

If dr.IsNull("分娩_日期") Then

Dim dt As DataRow = DataTables("母猪转产房").AddNew()

dt("编号") = dr("编号")

Dim v As Date = dr("配种日期").adddays(114)

dt("预计分娩日期") = v

End If

End If

Next

假如Dim dt As DataRow = DataTables("母猪转产房").AddNew()，增加10000行，那么就要花300多秒，可能是因为查询与赋值并存的原因导致效率低，所以恳请老师帮我改一下代码，提高效率！

”Select {母猪分娩断奶信息}.[sys_user], {母猪分娩断奶信息}.[_identify], {母猪分娩断奶信息}.[编号], 胎次, 配种日期, 预计分娩日期, 进产房日期, 栋舍 As 移入栋舍, 执行人, 备注 FR OM {母猪分娩断奶信息} LEFT JOIN  {母猪转产房} ON {母猪分娩断奶信息}.[sys_user] = {母猪转产房}.[sys_user] And {母猪分娩断奶信息}.[编号] = {母猪转产房}.[编号] ORDER BY 配种日期"

前提要可以编辑，才可以保存，现在在tables("窗口1_table1")连删除行，增加行，什么编辑都不能，

我想到有个方法，可不可以在SQL server 中创建一个新的表b

表b：列1，列2，列3，列4

与

表a：列a，列b，列c，列d，列e、

其中 列1和列a，列2和列d，列类型相同，列名相同，数据同步，其余列数据不同步