编写DrawCell事件
If e.Col.Name = "学生姓名" AndAlso e.Text.Split("-").Length >= 2 Then
e.Text = e.Text.Split("-")(1)
End If