标题：[讨论]getpy从姓名列提取拼音码问题

[讨论]getpy从姓名列提取拼音码问题已初步解决，完全代码如下：

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

敬请请各位朋友和高手斧正