主题：狐表年龄计算

1,修改前的代碼:
If e.DataCol.Name = "出生日期" Then
   
   If e.dataRow.ISNull("出生日期") Then

       e.Datarow("年?") = nothing
 
    Else

        e.dataRow("年?") = Date.Today.Year  - e.dataRow("出生日期").Year

    End If

End If


2,修改後代碼:

If e.DataCol.Name = "出生日期" Then
   
   If e.dataRow.ISNull("出生日期") Then

       e.Datarow("年齡") = nothing
 
    Else

        e.dataRow("年齡") = Date.Today.Year  - e.dataRow("出生日期").Year

    End If

End If

3,輸入一行"出生日期"

4,如下圖所示:

此主题相关图片如下：110.jpg