以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  都是副本表，新增时，table控件没有空白行，是什么原因？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117467)
--  作者：xxfoxtable
--  发布时间：2018/4/12 21:44:00
--  都是副本表，新增时，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
--  作者：有点甜
--  发布时间：2018/4/12 22:00:00
--  

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

 

也可以这样写

 

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
--  作者：xxfoxtable
--  发布时间：2018/4/12 22:04:00
--  
不设置副本不行，一切换到这个窗口，所有数据都显示出来了，整个软件都得用筛选，还有其他好办法吗？
--  作者：有点甜
--  发布时间：2018/4/12 22:52:00
--  
2楼就是解决方案，参考2楼代码。