没看懂,蒙一下:
If e.DataCol.Name = "医生" Then If e.DataRow.IsNull("医生") Then e.DataRow("医生") = Nothing Else Dim vals() As String = e.DataRow("医生").split(":") If vals.length > 1 Then e.DataRow("医生")= vals(1) Else e.DataRow("医生") = vals(0) End If End IfEnd If