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