怎样优化以下代码：
Dim dr As DataRow = Tables("基本信息表").current.DataRow
If dr("设备品种") Like "电动单梁*"and dr("施工14")="安装" Then
If dr("操纵方式") Like "司*" Then
代码1
Else
代码2
End If
Else
If dr("设备品种") Like "电动单梁*" Then
If dr("操纵方式") Like "司*" Then
代码3
Else
代码4
End If
Else
If dr("设备品种") Like "电动葫芦*" Then
If dr("操纵方式") Like "司*" Then
If dr("有无走台")="无" Then
代码5
Else
代码6
End If
Else
If dr("有无走台")="无" Then
代码7
Else
代码8
End If
End If
Else
If dr("操纵方式") Like "司*" Then
If dr("有无走台")="无" Then
代码9
Else
代码10
End If
Else
If dr("有无走台")="无" Then
代码11
Else
代码12
End If
End If
End If
End If
End If
加好友 
发短信
Post By：2016/10/10 8:50:00 [只看该作者]
