求助精简代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
Case "罪名"
If e.DataRow("罪名") Like "盗窃*" Then
e.DataRow("犯罪类型")="财产型"
ElseIf e.DataRow("罪名") Like "诈骗" Then
e.DataRow("犯罪类型") = "财产型"
ElseIf e.DataRow("罪名") Like "*诈骗*" Then
e.DataRow("犯罪类型")="财产型"
ElseIf e.DataRow("罪名") Like "*贪污*" Then
e.DataRow("犯罪类型")="财产型"
ElseIf e.DataRow("罪名") Like "*侵占*" Then
e.DataRow("犯罪类型") = "职务犯罪"
ElseIf e.DataRow("罪名") Like "*强奸*" Then
e.DataRow("犯罪类型")="淫欲型"
ElseIf e.DataRow("罪名") Like "*伤害*" Then
e.DataRow("犯罪类型")="暴力型"
ElseIf e.DataRow("罪名") Like "*抢*" Then
e.DataRow("犯罪类型")="暴力型"
ElseIf e.DataRow("罪名") Like "*杀人*" Then
e.DataRow("犯罪类型") = "暴力型"
ElseIf e.DataRow("罪名") Like "*死*" Then
e.DataRow("犯罪类型") = "暴力型"
ElseIf e.DataRow("罪名") Like "*敲诈*" Then
e.DataRow("犯罪类型") = "暴力型"
ElseIf e.DataRow("罪名") Like "*淫*" Then
e.DataRow("犯罪类型") = "淫欲型"
Else
e.DataRow("犯罪类型")="其他型"
End If
End Select
这段代码怎么精简啊

主题：求助精简代码