If e.DataCol.Name = "拼音码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("项目类别") = Nothing
    Else
        Dim lb As DataRow
        lb = DataTables("收费项目").Find("[拼音码] = \'" & e.NewValue & "\'")
        If lb IsNot Nothing Then
            e.DataRow("项目类别") = lb("项目类别")
            e.DataRow("项目名称") = lb("项目名称")
            e.DataRow("sys_药品分类") = lb("药品分类")
            e.DataRow("sys_零差价") = lb("零差价")
            e.DataRow("sys_单位") = lb("单位")
            e.DataRow("sys_单位") = lb("单位")
            e.DataRow("单价") = lb("单价")
        End If
    End If
End If
e.DataRow("合计") = e.DataRow("单价") * e.DataRow("数量")
If e.DataCol.Name = "拼音码" Then
    If e.DataRow.IsNull("拼音码") Then
        e.DataRow("拼音码") = Nothing
    Else
        e.DataRow("拼音码") =e.DataRow("拼音码").split(":")(0)
    End If
End If
If e.DataCol.Name = "医生" Then
    If e.DataRow.IsNull("医生") Then
        e.DataRow("医生") = Nothing        
        If e.DataRow("医生").split(":")(1)IsNot Nothing
            e.DataRow("医生")=e.DataRow("医生").split(":")(1)
        Else
            e.DataRow("医生")=e.DataRow("医生").split(":")(0)
        End If
    End If
End If

在按钮代码进行分离判断太复杂，现在写到表属性事件中，

第一段关于拼音码分离没问题，格式为PYM:拼音码，分离出PYM，英文在前。分离“：”前的。

第二段关于医生有错误，格式为YS:医生，分离出 医生，汉字在后，分离“：”后的。

IF条件要求：

1、该列为空——空

2、该列字符串存在“：”，分离出“：”后的

否则保持原来内容不变。

没看懂，蒙一下：

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 If
End If