- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用如下代码,新加的数据不显示,有什么好办法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180006)
-- 发布时间：2022/9/22 21:56:00
-- 用如下代码,新加的数据不显示,有什么好办法
DataTables("业务处理临时").DeleteFor("物料编号 is null")
For Each dr As Row In Tables("多选物料_table1").GetCheckedRows
Dim wl As Row=Tables("业务处理临时").addnew
wl("物料编号")=dr("物料编号")
wl("物料名称")=dr("物料名称")
wl("规格封装")=dr("规格")
wl("计量单位")=dr("计量单位")
Next
-- 发布时间：2022/9/22 22:15:00
--
1、table1没有勾选数据
2、"业务处理临时"做了筛选，去掉筛选条件
-- 发布时间：2022/9/23 7:13:00
--
不那样的问题,请看实例
-- 发布时间：2022/9/23 8:50:00
--
调换一下代码顺序，先增加再删除
For Each dr As Row In Tables("多选物料_table1").GetCheckedRows
Dim wl As Row=Tables("业务处理临时").addnew
wl("物料编号")=dr("物料编号")
wl("物料名称")=dr("物料名称")
wl("规格封装")=dr("规格")
wl("计量单位")=dr("计量单位")
Next
DataTables("业务处理临时").DeleteFor("物料编号 is null")