主题：[求助]　这个事件代码如何设置？

if e.datacol.name = "年" orelse e.datacol.name = "月" orelse e.datacol.name = "日" then
   dim txt As String  = e.datarow("年")&"-"&e.datarow("月")&"-"&e.datarow("日")
   Dim Dt As Date
   If Date.TryParse(txt,dt) Then
        e.datarow("日期")=dt
   Else

        e.datarow("日期")= nothing

   end if
end if