以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师好,Getpy拼音功能怎么实现?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91766)

--  作者:nygxfok
--  发布时间:2016/10/18 16:10:00
--  老师好,Getpy拼音功能怎么实现?

老师好!

我做的一个表里的一个列是“公司名称”,为了快速找到我做了一个“公司名拼音”

好多公司名,我不知如何在“公司名拼音”一列中如果一下把前面一列几百个的名字一下弄好

在论坛里查  到下面的方法

表DoubleClick事件


e.Row("拼音首码") = GetPy(e.Row("公司名称"),True)
 
我改后,只能一个一个的双击,这样太慢了吧,有没其它方法?
 
先谢谢老师!
 
还有,如果在另一个表里一个列里打个拼音字母后,把这个表里的几个列的数据信息给调过去,用目录树么?我看了教程和帮助,操作了几次还是不行呀? 
请老师赐教!!!!

--  作者:有点蓝
--  发布时间:2016/10/18 16:18:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "公司名称"
        If e.NewValue > "" Then
            e.DataRow("拼音首码") = GetPy(e.NewValue ,True)
        Else
            e.DataRow("拼音首码") = Nothing
        End If
End Select

然后选中公司名称列,重置一下列
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2016/10/18 16:19:00
--  
调过去参考:http://www.foxtable.com/webhelp/scr/1451.htm
--  作者:nygxfok
--  发布时间:2016/10/18 19:47:00
--  
太爽了,万分感谢!!!!!!!!赞!!!