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

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

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

    case else

       Z(“其他”)=？？

End Select

http://www.foxtable.com/help/topics/0224.htm