主题：将汉字翻译成拼音

Dim py As DataRow = e.DataRow
If e.DataCol.Name = "简称" Then
    If py.IsNull("简称") Then
        py("简码") = Nothing
    Else
        py("简码") = getpy(py("简称"),True)
    End If
End If                                 

以上代码是将汉字转换成   拼音的首母如：北京＝BJ               而我希望得到的效果是：BeiJing

我试着将py 改成getpy,却不成功。不知道原因是出在什么地方。

GetPy

将指定汉字转换为拼音格式。

语法

GetPY(Value,Initial)

Value：  要转换的拼音。
Initial: 可选参数，如果设为True，返回拼音缩写(由首字母组成)。

函数有说明的，如果你不想返回 首字母，可以设置成 false 即可

Dim py As DataRow = e.DataRow
If e.DataCol.Name = "省洲" Then
    If py.IsNull("省洲") Then
        py("Province") = Nothing
    Else
        py("Province") = getpy(py("省洲"),False)－－－－我将原先的True改成Falsh,可以正常显示如：北京＝＝bei jing
    End If
End If

可是我希望得到的效果是：BeiJing

也很简单：

str= getpy(py("省洲"),False)
py("Province") =str.Replace(" ","") 

替换下就好了！！