职工一览表有如下列： 职级_任现职级时间（文本：####-##），职级_任职级年限在Datacolchanged 中计算职级_任现职级年限的代码为：
Select Case e.DataCol.name
Case "职级_任现职级时间"
If e.DataRow.IsNull("职级_任现职级时间") Then
e.DataRow("职级_任现职级年限") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("职级_任现职级时间"))
e.DataRow("职级_任现职级年限") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select
请教：如何加上条件语句，当职级_任现职级时间的月份输入>12时，提示“月份输入错误”，当<12时按如上代码执行计算？谢谢！
加好友 
发短信
Post By：2016/7/16 16:26:00 [显示全部帖子]
