主题：都是副本表，新增时，table控件没有空白行，是什么原因？

你副本表如果设置了筛选，这种情况是正常的。

也可以这样写

Dim rs As List(of Row)=Tables("生产日报表_table3").GetCheckedRows
If rs.Count<=0 Then
    msgbox("无选择的记录")
    Return
End If
For Each r As Row In rs
    Dim sc As Row=Tables("生产日报表_table4").addnew
    Dim f = Tables("生产日报表_table4").filter
    Tables("生产日报表_table4").filter = iif(f > "", "(" & f & ") Or _Identify = " & sc("_Identify"), "")
    sc("日期")=Date.Now
    sc("工艺明细")=r("工艺明细")
    sc("工艺说明")=r("工艺说明")
Next