主题：这个备注列的代码怎么写？

此主题相关图片如下：20140312202619.jpg

如图  有数据列 “黑色 大红 梅红 蓝色”   和   备注列 “备注“

要想数字为 0 的 不显示在备注列中

这个备注列的代码怎么写？

谢谢

我的是最新的开发版，打不开

提示要激活，麻烦把代码贴上来下好吗，谢谢了

Select Case e.DataCol.Name
    Case "黑红","大红","梅红","蓝色"
        e.DataRow("备注") = ""
        For Each s As String In "黑红|大红|梅红|蓝色".Split("|")           
            If e.DataRow.IsNull(s) = False AndAlso e.DataRow(s) <> 0 Then
                e.DataRow("备注") + = s & ":" & e.DataRow(s)  & vbcrlf
            End If
        Next
End Select