主题：自动产生届别列

DataColChanged事件

If e.DataCol.Name = "入校日期" Then
    If e.newvalue <> Nothing Then
        e.DataRow("届别") = e.newvalue.year + 3
    Else
        e.DataRow("届别") = Nothing
    End If
End If