以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教，如何取汉字的首字母  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5664)
--  作者：wwwrr110
--  发布时间：2009/12/27 7:56:00
--  请教，如何取汉字的首字母
请问老师，如何实现取得汉字的首字母的功能，比如在“客户表”中有“客户姓名”与“简码”两列。
--  作者：lxl
--  发布时间：2009/12/27 9:07:00
--  

帮助里面有：getpy
--  作者：yangming
--  发布时间：2009/12/27 11:02:00
--  

可参看我的人事工资管理中的员工档案表的事件代码
表DataColChanged事件


If e.DataCol.Name = "姓名" Then
    If e.DataRow.IsNull("姓名") Then \'如果没有输入姓名
      e.DataRow("简码") = Nothing \'则清空简码
    Else
        \'否则计算简码
       e.DataRow("简码") =GetPY(e.DataRow("姓名"),True)
   End If
End If
[此贴子已经被作者于2009-12-27 11:04:45编辑过]
--  作者：sywgb168
--  发布时间：2015/8/4 22:35:00
--  

学习学习