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

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