主题：[求助]求助这个代码应该怎么修改

 这样做比较好。

Select Case e.DataCol.name
    Case "名称", "委托代理人"     
        If e.DataRow.IsNull("委托代理人") Then
            If e.DataRow.IsNull("名称") Then
                e.DataRow("拼音") = Nothing
            Else
                e.DataRow("拼音") = GetPy(e.NewValue)
            End If
        Else
            e.DataRow("拼音") = GetPy(e.NewValue)
        End If
End Select

谢谢林大，但是这样写 当名称列输入时 有拼音，当名称列 委托代理人列 都输入时，也符合条件 。但是当名称列为空，委托代理人列有字符时，则显示不出来。望指教~~~

之前写错了，已经修正，在2楼代码。

这样做比较好。 Select Case e.DataCol.name Case "名称", "委托代理人" If e.DataRow.IsNull("委托代理人") =false And e.DataRow.IsNull("名称") = false Then e.DataRow("拼音") = GetPy(e.DataRow("委托代理人")) ElseIf e.DataRow.IsNull("委托代理人") And e.DataRow.IsNull("名称") Then e.DataRow("拼音") = nothing Else e.DataRow("拼音") = GetPy(e.NewValue) End If End Select

谢谢林大 ，但是还是发现了个小问题  当名称列 与 委托代理人列 都输入字符后， 在delete删除任意一列的字符，则弹出错误窗口，显示 “调用的目标发生了异常”。请问这是什么原因。

手机回复，无法换行，请自行分割一下代码！

谢谢程总， 已经尝试了，且对于初学者的我，可以一眼就看出代码意思。表示感谢！！林大的代码还是有些小看不懂。

最终依据程总的代码意思，经自己修改后，不再出现任何错误提示，望大家指点、简化。 代码如下！！

Select Case e.DataCol.name
    Case "名称", "委托代理人"     
        If e.DataRow.IsNull("委托代理人") Then
            If e.DataRow.IsNull("名称") Then
                e.DataRow("拼音") = Nothing
            Else
                e.DataRow("拼音") = GetPy(e.DataRow("名称"))
            End If
        Else
            e.DataRow("拼音") = GetPy(e.DataRow("委托代理人"))
        End If
End Select