- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 汉字转换为字母并取第一个字母 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13751)
-- 发布时间：2011/10/25 23:50:00
-- 汉字转换为字母并取第一个字母
如何实现？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汉字转换为字母并取第一个字母.table |
-- 发布时间：2011/10/26 0:17:00
--
用GetPY啊。
-- 发布时间：2011/10/26 0:23:00
--
你问这个问题我都不好意思给你写代码。
If e.DataCol.Name = "第一列" Then
If e.DataRow.IsNull("第一列") Then
e.DataRow("第二列") = Nothing
Else
e.DataRow("第二列") = GetPY(e.DataRow("第一列"),True)
End If
End If
-- 发布时间：2011/10/26 9:26:00
--
For Each dr As Row In CurrentTable.Rows
If dr.IsNull("第一列") Then
dr("第二列") = Nothing
Else
\'dr("第二列") = getpy(dr("第一列").SubString(0,1),True)
dr("第二列") = getpy(dr("第一列"),True)
End If
Next