以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  制作入库单凭证清空问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179523)
--  作者：文竹开源
--  发布时间：2022/8/28 10:12:00
--  制作入库单凭证清空问题
1.填制入库单并提交保存   2.入库内容自动累计到入库汇总中保存3.入库单提交保存后内容自动清楚
--  作者：有点蓝
--  发布时间：2022/8/28 20:23:00
--  
保存按钮

dim r as row = tables("入库单").current
if r isnot nothing then
dim nr as row = tables("入库汇总").addnew
nr("列1") = r("列1")
nr("列2") = r("列2").
……
tables("入库汇总").save
r.delete
end if