以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141809)

--  作者：kai --  发布时间：2019/10/11 12:42:00 --  [求助] 这个项目怎么可以将项目中 纸质文件档号 表中的数据批量生成 文件档号 表中的情况，最后生成对比表：将纸质文件档号 表中的档号和文件档号 表中的档号进行比对生成对比表中的情况？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:目录生成.zip

--  作者：有点蓝 --  发布时间：2019/10/11 13:47:00 --   命令窗口执行下面代码 Dim r As Row = Tables("纸质文件档号").Current Dim i1 As Integer = val(r("起件号")) Dim i2 As Integer = val(r("止件号")) Dim t As Table = Tables("文件档号") Dim nr As Row For i As Integer = i1 To i2     nr = t.AddNew     nr("年度") = r("年度")     nr("部门") = r("部门")     nr("保管期限") = r("保管期限")     nr("件号") = i     nr("档号") = r("年度") & "-" & r("部门") & "-" & r("保管期限") & "-" & i Next

--  作者：kai --  发布时间：2019/10/11 14:23:00 --   谢谢，帮忙解决大问题了

--  作者：kai --  发布时间：2019/10/11 14:27:00 --   我测试了一下，不能批量运行？

--  作者：有点蓝 --  发布时间：2019/10/11 14:35:00 --   自己遍历"纸质文件档号"所有行处理：http://www.foxtable.com/webhelp/topics/1438.htm