主题：日期计算

这个表，我要求找到最后一次服务的某客户，从开始服务的那天计算，365天后自动增加一行，进行收费，这个代码怎么写，求助，谢谢

此主题相关图片如下：财务.png

请举例具体的数据，说明一下最终的效果

比如A客户，开始服务期限是2023年10月10日，我们收取服务3000，到2024年10月10日，2025年10月10日，2026年10月10日……，每年都收取3000服务费，每年到期前10天有个提醒，到期自动增加一行，依次类推，有的客户比如收取2年后，不在服务，我们填入结束服务日期，这类客户后期不在提醒，不在增加一行

 

datacolchanged事件

if  e.datacol.name = "开始服务日期" then

if e.datarow.isnull("结束服务日期") andalso if e.datarow.isnull("开始服务日期") = false then

dim d as date = e.datarow("开始服务日期") 

if d.addyears(1) = date.today then

dim dr as datarow = e.datatable.addnew

dr("开始服务日期") = date.today

dr("客户名称") = e.datarow("客户名称") 

重置列没有反应哈

开始服务日期没有符合要求的数据，比如今天是2024-04-03，那么要开始服务日期是2024-03-03的才会增加一行