| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]怎样优化一下代码。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91394) |
| -- 作者：wusim -- 发布时间：2016/10/10 8:50:00 -- [求助]怎样优化一下代码。 怎样优化以下代码：
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 |
| -- 作者：有点蓝 -- 发布时间：2016/10/10 9:53:00 -- 请文字说明一下业务逻辑 |