主题：我用GetPY函数提取汉字拼音首字母时出错，不知道为什么？

If e.DataCol.Name = "客户简称" Then
    If e.DataRow.IsNull("客户简称") Then
        e.DataRow("助记码") = Nothing
    Else
       Dim zjm As Py
       e.DataRow("助记码") = zjm.GetPY(e.DataRow("客户简称") , TitleCase , w)
    End If
End If

返回一个提示：未声明TitleCase,它可能因其保护级别而不可访问。这是为什么？