以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何用GetPY函数从姓名列生成拼音码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11464)
--  作者：yanzhen2010
--  发布时间：2011/7/29 10:55:00
--  [求助]如何用GetPY函数从姓名列生成拼音码

 PYM用代码生成

[此贴子已经被作者于2011-7-29 11:13:00编辑过]
--  作者：blackzhu
--  发布时间：2011/7/29 10:59:00
--  
tables("表名").current("拼音列") = GetPY(tabels("表名").current("姓名列"))  
--  作者：yanzhen2010
--  发布时间：2011/7/29 11:20:00
--  
以下是引用blackzhu在2011-7-29 10:59:00的发言：
tables("表名").current("拼音列") = GetPY(tabels("表名").current("姓名列"))  

需要用代码生成，PYM列不是表达式
--  作者：mr725
--  发布时间：2011/7/29 11:48:00
--  
以下是引用yanzhen2010在2011-7-29 11:20:00的发言：

需要用代码生成，PYM列不是表达式

图片点击可在新窗口打开查看
--  作者：blackzhu
--  发布时间：2011/7/29 16:54:00
--  
以下是引用yanzhen2010在2011-7-29 11:20:00的发言：

需要用代码生成，PYM列不是表达式



 我也晕了
--  作者：yanzhen2010
--  发布时间：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