主题：查询与赋值并存

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多秒，可能是因为查询与赋值并存的原因导致效率低，所以恳请老师帮我改一下代码，提高效率！