主题：求助精简代码

Select Case e.DataCol.Name

    Case "罪名"

        Dim s1 As String = e.DataRow("罪名")

        Dim n1 As Integer

        If s1 = Nothing Then

            n1 = 1

        ElseIf "盗窃*|诈骗|贪污".Contains(s1) Then

            n1 =2

        ElseIf "伤害|抢|杀人|死|敲诈".Contains(s1) Then

            n1 =3

        ElseIf "淫|强奸".Contains(s1) Then

            n1 =4

        ElseIf "侵占".Contains(s1)  Then

            n1 =5

        Else

            n1 =6

        End If

        e.DataRow("犯罪类型") = choose(n1,"","财产型","暴力型","淫欲型", "职务犯罪","其他型")

End Select