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

超级精简的:

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