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