If e.DataCol.name = "鉴定时间" Then
    Dim dm As Date = e.DataRow("鉴定时间")
    If e.DataRow("鉴定时间") =Nothing Then
        e.DataRow("年度") =Nothing
        e.DataRow("月份") =Nothing
    Else
        e.DataRow("年度") =dm.Year
        e.DataRow("月份") =dm.month
    End If
End If

If e.DataCol.name = "鉴定类别" Then
    If e.DataRow("鉴定类别") Like "*因果*"  Then
        e.DataRow("备注") ="因果关系鉴定"
    ElseIf  e.DataRow("鉴定类别") Like "*器具*"  Then
        e.DataRow("备注") ="辅助器具鉴定"
    Else
        e.DataRow("备注") =Nothing
    End If
End If

If e.DataCol.name = "批准日期" OrElse e.DataCol.name = "处理日期" Then
    If e.DataRow("批准日期")<> Nothing  Then
        e.DataRow("处理日期") = e.DataRow("批准日期")
    Else
        e.DataRow("处理日期") = e.DataRow("处理日期")
    End If
End If

http://www.foxtable.com/webhelp/scr/1522.htm