主题：都是副本表，新增时，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
    sc("日期")=Date.Now
    sc("工艺明细")=r("工艺明细")
    sc("工艺说明")=r("工艺说明")
Next

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

 

也可以这样写

 

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

不设置副本不行，一切换到这个窗口，所有数据都显示出来了，整个软件都得用筛选，还有其他好办法吗？

2楼就是解决方案，参考2楼代码。