- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：将一列中文在另一列转换为拼音缩写的代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34011)
-- 发布时间：2013/5/28 23:29:00
-- 求助：将一列中文在另一列转换为拼音缩写的代码
将一列中文在另一列转换为拼音缩写的代码
-- 发布时间：2013/5/28 23:32:00
--
参考GetPy
-- 发布时间：2013/5/29 7:06:00
-- 我参考了Getpy，在表中不知如何处理，请大侠明示。谢谢。
-- 发布时间：2013/5/29 8:38:00
--
当前表事件datacolchanged
Dim s As String=e.datarow("客户名称")
If e.datarow("客户名称") IsNot Nothing Then
e.datarow("拼音简码")=getpy(s,True)
End If
-- 发布时间：2013/5/29 8:39:00
--
这个只能用代码的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目84.table |
-- 发布时间：2013/5/29 8:39:00
--
DataColChanged 事件
if e.datacol.name="第一列" then
e.datarow("第二列")=GetPY(e.newValue, True)
end if
-- 发布时间：2013/5/30 13:30:00
--
很简单，多看看帮助
Output
.Show(GetPY("我爱狐表"))结果：wo ai hu biao
Output.Show(GetPY("我爱狐表", True))
得到的结果为：WAHB
[此贴子已经被作者于2013-5-30 13:30:49编辑过]
-- 发布时间：2013/10/5 21:04:00
--
同求高手指教，如何自动生成一列的中文名字的拼音缩写 似乎用 getpy 没法实现这个功能
-- 发布时间：2013/10/5 21:08:00
--
以下是引用jackkevinlee在2013-10-5 21:04:00的发言：
同求高手指教，如何自动生成一列的中文名字的拼音缩写 似乎用 getpy 没法实现这个功能
同求高手指教，如何自动生成一列的中文名字的拼音缩写 似乎用 getpy 没法实现这个功能
可以，参考。具体问题，重新开贴提问
-- 发布时间：2013/12/3 22:17:00
-- 我也学习
我也学习