主题：将汉字翻译成拼音

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,却不成功。不知道原因是出在什么地方。

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