Select Case e.DataCol.Name
Case "申报性质","申报鉴定工种","资格审核","理论考否","考试性质"
Dim dj As String = ""
If e.DataRow("鉴定等级") = "高级工" Then
dj = "鉴定等级三"
ElseIf e.DataRow("鉴定等级") = "中级工" Then
dj = "鉴定等级四"
End If
If dj > "" Then
If e.DataRow("申报性质") = "正常申报" Or e.DataRow("申报性质") = "补考理论" Then
If e.DataRow("资格审核") = True Then
e.DataRow("理论考否") = "要考理论"
Dim fdr As DataRow = DataTables("机考工种表").Find(dj & " = '" & e.DataRow("鉴定等级") & "' And 机考工种 = '" & e.DataRow("申报鉴定工种") & "'")
If fdr IsNot Nothing Then
e.DataRow("考试性质") = "上机考试"
Else
e.DataRow("考试性质") = "纸质考试"
End If
Else
e.DataRow("理论考否") = "没有资格"
e.DataRow("考试性质") = "不排考试"
End If
Else
e.DataRow("理论考否") = "不考理论"
e.DataRow("考试性质") = e.DataRow("申报性质")
End If
End If
End Select
加好友 
发短信
Post By：2018/10/19 9:52:00 [显示全部帖子]
