特简单，关于RelativeDate的有关问题！

特简单，关于RelativeDate的问题！！
有两个datetime 类型的字段，d1,d2
要求d1输入一个日期后，d2自动变为第二天，比如d1里输入2013-5-1,然后d2就变成2013-5-2,我在itemchanged事件里这样写为什么不行呢
date ld_tmp,ld_d2
if dwo.name='d1' then
  ld_tmp=date(data)
  ldt_d2=RelativeDate(ld_tmp,1)
  setitem(row,'d2',ld_d2)
end if

d2那列显示的是1900-01-03

------解决方案--------------------
ld_tmp=date(data)

我感觉会不会是获取data失败？

试着先用GetItemDate(row,'d1')
------解决方案--------------------