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
求大师解答,谢谢