请教版主，以下两段代码是否可以合并？
第1段：
Select Case e.DataCol.Name
Case "鉴定等级", "申报性质","资格审核","考试性质"
If e.DataRow("鉴定等级") = "技师" Then
If e.DataRow("申报性质") = "正常申报" Then
e.DataRow("理论考否") = True
Else
e.DataRow("理论考否") = False
End If
End If
End Select
第2段：
Select Case e.DataCol.Name
Case "申报性质","申报鉴定工种","理论考否","考试性质"
If e.DataRow("鉴定等级") = "技师" Then
If e.DataRow("申报性质") = "正常申报" Then
If e.DataRow("资格审核") = True Then
e.DataRow("理论考否") = True
Dim fdr As DataRow = DataTables("机考工种表").Find("鉴定等级二 = '" & e.DataRow("鉴定等级") & "' And 机考工种 = '" & e.DataRow("申报鉴定工种") & "'")
If fdr IsNot Nothing Then
e.DataRow("考试性质") = "上机考试"
Else
e.DataRow("考试性质") = "纸质考试"
End If
Else
e.DataRow("理论考否") = False
e.DataRow("考试性质") = "纸质考试"
End If
Else
e.DataRow("考试性质") = e.DataRow("申报性质")
End If
End If
End Select
加好友 
发短信
Post By：2015/7/23 16:04:00 [只看该作者]
