| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何提取姓名中的首字母？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168951) |
| -- 作者：hrw68529 -- 发布时间：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未声明名称，怎么改代码，谢谢。
|
| -- 作者：有点蓝 -- 发布时间：2021/5/28 9:53:00 -- 您foxtable应该是很老的版本了吧，更新foxtable到新版才有这py的用法 |
| -- 作者：hrw68529 -- 发布时间：2021/5/28 9:56:00 -- 老的版本怎么写代码，谢谢 |
| -- 作者：有点蓝 -- 发布时间：2021/5/28 10:05:00 -- 参考：http://www.foxtable.com/webhelp/topics/3240.htm 或者打开Foxtable，按F1打开离线帮助，搜索“拼音”
|
| -- 作者：hrw68529 -- 发布时间：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 谢谢
|