- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表加入新行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160737)
-- 发布时间：2021/2/19 15:30:00
-- 跨表加入新行
有两张表，一张是总表， 一张是回访记录表，如图：
此主题相关图片如下：foxtable 问题.png
总表中有几千个姓名，回访表记录表是对应总表里面每个姓名下面对应的回访记录，我想在回访记录表中找到总表中所有对应的姓名，并且自动加一行（如红色标签所示），姓名是总表中的姓名，回访日期自动生成是今天，实时状态 复制最后一行的状态。
请问下代码需要怎么写才能达到这样的效果？
[此贴子已经被作者于2021/2/19 15:33:50编辑过]
-- 发布时间：2021/2/19 15:31:00
--
谢谢
[此贴子已经被作者于2021/2/19 15:32:44编辑过]
-- 发布时间：2021/2/19 15:52:00
--
dim dr,dr2 as datarow
for each s as string in datatables("总表").getvalues("姓名")dr = datatables("回访记录表").find("姓名=\'" & s & "\'","回访日期 desc")
if dr isnot nothing then
dr2 = datatables("回访记录表").addnew
dr2("姓名") = s
dr2("回访日期") = date.today
dr2("状态") = dr("状态")
end if
next
[此贴子已经被作者于2021/2/19 15:52:11编辑过]