[求助]如何提取姓名中的首字母？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何提取姓名中的首字母？

共有3512人关注过本帖树形打印复制链接主题：[求助]如何提取姓名中的首字母？

hrw68529

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

[求助]如何提取姓名中的首字母？ 发帖心情

Post By：2021/5/28 9:49:00 [显示全部帖子]

代码：Dim xm As String = PY.GetNamePY(e.DataRow("姓名"),False ,3)

If e.DataRow("姓名") = Nothing Then

e.DataRow("首字母") = Nothing

Else

e.DataRow("首字母") = xm.SubString(0,1)

End If

但显示说：py未声明名称，怎么改代码，谢谢。

hrw68529

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2021/5/28 9:56:00 [显示全部帖子]

老的版本怎么写代码，谢谢

hrw68529

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2021/5/28 10:12:00 [显示全部帖子]

已解决。代码如下：Select Case e.DataCol.Name

Case "姓名"

Dim xm As String

If e.NewValue <> "" Then

xm = GetPy(e.NewValue, True)

e.DataRow("首字母") = xm.SubString(0,1)

End If

End Select

谢谢

主题：[求助]如何提取姓名中的首字母？