以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 清空表数据再添加，结果边新增的也清了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174882)

--  作者：foxtablefanse --  发布时间：2022/2/10 16:09:00 --  [求助] 清空表数据再添加，结果边新增的也清了 因数据行较多，为了直观添加数据，清空表数据再添加，结果新增的也清了，如何是好？？用remove吗？ Dim tb1 As Table=Tables("排车排工_Table1") Dim tb2 As Table=Tables("排车排工_Table2") If tb1.Current IsNot Nothing Then     If tb1.Current.DataRow.RowState=DataRowState.Added OrElse  tb1.Current.DataRow.RowState=DataRowState.Modified Then              Else         tb1.Current.Locked = True \'锁定行,防止添加过程中修改主表数据         tb2.Filter="_Identify is null" \'清空明细表,便于操作         Dim r As Row=  tb2.AddNew()         r("结算编号")=tb1.Current("编号")         r("用车单位")=tb1.Current("用车单位")         r("二级单位或地点")=tb1.Current("二级单位")         r("年份")=tb1.Current("年份")         r("月份")=tb1.Current("月份")     End If Else      End If

--  作者：有点蓝 --  发布时间：2022/2/10 16:13:00 --   tb2.Filter = "_Identify > " & tb2.Compute("max(_Identify)")

--  作者：foxtablefanse --  发布时间：2022/2/10 16:14:00 --   找到方法了 DataTables("***").RemoveFor(tb2.Filter)  [此贴子已经被作者于2022/2/10 16:20:45编辑过]