主题：[求助]日期自动计算

datacolchanged 事件

if e.datacol.name="借款金额" then

dim dw as integer = e.datarow("借款日期").DayOfWeek

if dw=5 then

   e.datarow("收款日期")=e.datarow("借款日期").AddDays(3)

else if dw = 6 then

  e.datarow("收款日期")=e.datarow("借款日期").AddDays(2)

else

  e.datarow("收款日期")=e.datarow("借款日期").AddDays(1)

end if

end if