以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我用GetPY函数提取汉字拼音首字母时出错,不知道为什么?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164167)

--  作者:SHB20180225
--  发布时间:2021/4/28 10:30:00
--  我用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,它可能因其保护级别而不可访问。这是为什么?

 


--  作者:SHB20180225
--  发布时间:2021/4/28 10:49:00
--  

我查一下帮助文件:Mode的参数为数字:

修改为:

e.DataRow("助记码") = zjm.GetPY(e.DataRow("客户简称") , TitleCase , 3)

还是原先的问题。


--  作者:有点蓝
--  发布时间:2021/4/28 11:00:00
--  
If e.DataCol.Name = "客户简称" Then
    If e.DataRow.IsNull("客户简称") Then
        e.DataRow("助记码") = Nothing
    Else
       e.DataRow("助记码") = Py.GetPY(e.DataRow("客户简称") , true, 3)
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:SHB20180225
--  发布时间:2021/4/28 12:43:00
--  

谢谢。要敲脑袋