Select Case e.Col.name
    Case "总序号"
        If e.Row.Locked = True
            e.style = "锁定"
        End If
    Case "未分配指标","指标余额"
        e.style = "灰色"
    Case "附件"
        If e.Row.IsNull(e.Col.Name) = False
            Dim fj As String = e.text
            Dim parts() As String = fj.split(".")
            e.Text = parts(0)
        End If
    Case "指标金额"                       \'这个列是数据列可以正常显示" - "
        If e.Row("指标金额") = 0
            e.Text = " - "
        End If
    Case "未分配指标"                    \'这个列是表达式列不能正常显示为" - "
        If e.Row("未分配指标") = 0
            e.Text = " - "
        End If
    Case "指标余额"                      \'这个列是表达式列不能正常显示为" - "
        If e.Row("指标余额") = 0
            e.Text = " - "
        End If
End Select

求大师解答，谢谢

再次谢谢了