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编辑过]