主题：从日期列提取年份到另一列的编程

在该表的DataColChanged事件中加入下面的代码：

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期")Then
        e.DataRow("年份") = Nothing
    Else
        e.DataRow("年份") = e.DataRow("日期").year
    End If
End If