主题：求代码 以OK！

DataColChanged事件

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

DataRowAdding事件

e.DataRow("日期") = Date.Today