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("