DataColChanged
If e.DataCol.Name = "第二列" Then
If e.newvalue = nothing Then
e.datarow("第三列") = Nothing
Else
e.datarow("第三列") = e.newValue.Year
End If