主题：请帮助写一下代码？

如下代码：白毛档、边道印、刺坏三个是已知的，可以写成下列代码

Dim Z As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "白毛档","边道印","刺坏"

        Z("其他") = Z("白毛档")+Z("边道印")+Z("刺坏)

End Select

 

当新出现的问题（无法预知），问题不一定几个，如何用代码表示

就是新出现的问题也累计后给“其他”。

如：生产中无意出现了一个“黑点”

Dim Z As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "白毛档","边道印","刺坏"

        Z("其他") = Z("白毛档")+Z("边道印")+Z("刺坏)

    case “”

       Z(“其他”)=？？

End Select