Select Case e.DataCol.Name
Case "鉴定等级","申报鉴定工种","原技术资格等级","原等级取得时间","原资格证书工种","原资格证书编号"
If e.DataRow("鉴定等级") = "技师" Then
If e.DataRow("原技术资格等级") = "助理工程师(电力类)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "工程师(电力类)"
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "助理工程师(工业工程)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "工程师(工业工程)"
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "高级工程师(电力类)"
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "高级工程师(工业工程)"
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "破格评审"
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "重新评审"
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "补考实操"
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "补考潜能"
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "补考两项"
e.DataRow("是否合格") = True
Else If e.DataRow("原技术资格等级") = "技师"
Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
e.DataRow("是否合格") = fdr IsNot Nothing
Else If e.DataRow("原技术资格等级") = "高级技师"
Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
e.DataRow("是否合格") = fdr IsNot Nothing
Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
Dim dr As DataRow
dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("申报鉴定工种") & "%'")
If dr IsNot Nothing Then
Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in ('" & dr("工种").Replace(",", "','") & "') And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
e.DataRow("是否合格") = fdr IsNot Nothing
Else
e.DataRow("是否合格") = False
End If
End If
End If
If e.DataRow("鉴定等级") = "高级技师" Then
Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "' And 鉴定等级 = '" & e.DataRow("原技术资格等级") & "' And 申报鉴定工种 = '" & e.DataRow("原资格证书工种") & "'")
If fdr Is Nothing Then
e.DataRow("是否合格") = False
Else
If fdr("鉴定等级") = "技师" AndAlso fdr("申报鉴定工种") = e.DataRow("申报鉴定工种") AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3 Then
e.DataRow("是否合格") = True
Else
e.DataRow("是否合格") = False
End If
End If
End If
End Select
上述就是事件代码，但不报错！麻烦版主给看看，这段代码到底哪有错？谢谢先！！！！！！
加好友 
发短信
Post By：2015/6/15 9:16:00 [只看该作者]
Post By：2015/6/15 10:21:00 [只看该作者]
例子很大，发不上来
