主题：这样的代码还能优化吗

谢谢狐狸爸爸了，那刚才3楼的代码是哪块出问题了？

飞那个代码不严谨，要改一下：

 

Dim ArrColName1() As String = {"电雕在制明细","机加在制明细","镀铜在制明细","车研在制明细","镀铬在制明细"}
Dim ArrColName2() As String = {"电雕在制支数","机加在制支数","镀铜在制支数","车研在制支数","镀铬在制支数"}
Dim Index As Integer = Array.IndexOf(ArrColName1,e.DataCol.name)
If Index < 0 Then Return
If e.DataRow.IsNull(e.DataCol.name) Then
    e.DataRow(ArrColName2(Index)) = 0
Else
    e.DataRow(ArrColName2(Index)) = e.newvalue.split(",").Length
End If

飞的代码真是超级精炼啊，不过新手可能难以理解

太经典的代码看不懂，我在刚才那个项目上又加了一个产品明细表，在产品信息表里加了一段代码，还是觉得有点繁琐，能帮我看看怎么精简一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

哦,我错了,IIF会检查两个参数的