[求助] 不懂就问:提取拼音的函数没有了吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 不懂就问:提取拼音的函数没有了吗

共有56012人关注过本帖树形打印复制链接主题：[求助] 不懂就问:提取拼音的函数没有了吗

xipies

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

加好友

发短信

等级：幼狐帖子：161 积分：1172 威望：0 精华：0 注册：2008/8/31 20:56:00

[求助] 不懂就问:提取拼音的函数没有了吗 发帖心情

Post By：2008/9/1 17:58:00 [显示全部帖子]

如题:提取拼音的函数没有了吗

就是易表中的getpy()那个,好像找不到,是不是用了新的方法来代替了?这个函数我比较喜欢用的

xipies

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

加好友

发短信

等级：幼狐帖子：161 积分：1172 威望：0 精华：0 注册：2008/8/31 20:56:00

Post By：2008/9/2 8:03:00 [显示全部帖子]

不知道怎么用,我需要向以前易表一样的中文拼音字头,而现在是整个拼音,有参数吗?

xipies

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

加好友

发短信

等级：幼狐帖子：161 积分：1172 威望：0 精华：0 注册：2008/8/31 20:56:00

Post By：2008/9/2 8:56:00 [显示全部帖子]

以下是引用lxl在2008-9-2 8:39:00的发言：

暂没有参数,不知道以后加加不
不过可以处理一下,得到简拼
Dim a As String
Dim b As String = GetPY("中国")
Output.Show(b)
For i As Integer = 0 To b.Length - 1
If i = 0 OrElse b.Chars(i - 1) = " " Then

a &= b.Chars(i)

End If

Output.Show(a.ToUpper)

这个代码在命令窗口执行的,如果放到取值代码里面要改下

非常感谢,虽然我目前还不能成功运用,但还是非常感谢,只要能达到目的,怎样都行,再次感谢

[此贴子已经被作者于2008-9-2 8:57:18编辑过]

xipies

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

加好友

发短信

等级：幼狐帖子：161 积分：1172 威望：0 精华：0 注册：2008/8/31 20:56:00

Post By：2008/9/2 13:34:00 [显示全部帖子]

以下是引用lxl在2008-9-2 12:38:00的发言：
呵呵这是实例好版提到的地方我也改了下

下载信息 [文件大小：13.3 KB 下载次数：8]
点击浏览该文件:管理项目2.rar

弄不懂啊,代码写在哪儿都找不到,lxl兄收不收徒弟呀

xipies

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

加好友

发短信

等级：幼狐帖子：161 积分：1172 威望：0 精华：0 注册：2008/8/31 20:56:00

Post By：2008/9/2 13:50:00 [显示全部帖子]

以下是引用smileboy在2008-9-2 13:43:00的发言：

1、第二列：数据表--设计列--其他：计算代码
2、表属性：datacolchanged事件

谢谢,虽然还是看不太懂,不过感觉要洗洗脑子先,都是以前易表的思维啊,老习惯要革新,谢谢

另:这个是活生生的易表的刷新公式的例子啊,具有重大的参考价值

下一主题 >> << 上一主题

主题：[求助] 不懂就问:提取拼音的函数没有了吗