- 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=11464)
-- 发布时间：2011/7/29 10:55:00
-- [求助]如何用GetPY函数从姓名列生成拼音码
PYM用代码生成
[此贴子已经被作者于2011-7-29 11:13:00编辑过]
-- 发布时间：2011/7/29 10:59:00
--
tables("表名").current("拼音列") = GetPY(tabels("表名").current("姓名列"))
-- 发布时间：2011/7/29 11:20:00
--
以下是引用blackzhu在2011-7-29 10:59:00的发言：
tables("表名").current("拼音列") = GetPY(tabels("表名").current("姓名列"))
tables("表名").current("拼音列") = GetPY(tabels("表名").current("姓名列"))
需要用代码生成，PYM列不是表达式
-- 发布时间：2011/7/29 11:48:00
--
以下是引用yanzhen2010在2011-7-29 11:20:00的发言：
需要用代码生成，PYM列不是表达式
-- 发布时间：2011/7/29 16:54:00
--
以下是引用yanzhen2010在2011-7-29 11:20:00的发言：
需要用代码生成，PYM列不是表达式
我也晕了
-- 发布时间：2011/7/29 23:02:00
--
以下是引用yanzhen2010在2011-7-29 10:55:00的发言：
PYM用代码生成
[此贴子已经被作者于2011-7-29 11:13:00编辑过]
问题已解决;代码：
Dim py As DataRow = e.DataRow
If e.DataCol.Name = "姓名" Then
If py.IsNull("姓名") Then
py("拼音码") = Nothing
Else
py("拼音码") = getpy(py("姓名"),True)
End If
End If