各位高手,我这段代码有错误吗?为什么提示出错? Post By:2017/3/17 9:04:00 [只看该作者]
'以下是计算退休时间---------------------------- Select Case e.DataCol.Name Case "职称类别" And "性别" '如果是职称类别和性别字段发生变化 If e.DataRow.IsNull("职称类别" And "性别") Then If e.DataRow.IsNull("职称类别" And "性别") Then ' e.DataRow("退休时间") = Nothing Else If e.DataRow("职称类别") = "专技" Then If e.DataRow("性别") = "男" Then e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60) Else e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(55) End If End If If e.DataRow("职称类别") = "管理" Then If e.DataRow("性别") = "男" Then e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60) Else e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(55) End If End If If e.DataRow("职称类别") = "工勤" Then If e.DataRow("性别") = "男" Then e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60) Else e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(50) End If End If End If End If End Select '以上是计算退休时间---------------------------- 此主题相关图片如下:无标题.jpg