主题：[求助]帮忙改下自动转化拼音的代码？

If e.DataCol.Name = "供应商名称" Then '

    If e.DataRow.IsNull("供应商名称") Then '

        e.DataRow("拼音") = Nothing '

    Else

        '

Dim sa As Integer=e.DataRow("供应商名称") 

        e.DataRow("拼音") = Output.Show(GetPY("sa", True))

    End If

End If