[浏览完整版]
标题：[求助] 不懂就问:提取拼音的函数没有了吗
11楼
nidecan 发表于：2008/9/2 11:15:00能否做一个根据某列生成拼音的实例？
12楼
smileboy 发表于：2008/9/2 12:34: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
Next
Output.Show(a.ToUpper)
这个代码在命令窗口执行的,如果放到取值代码里面要改下
学习。
大家对VB不太熟，还是这样写比较好理解：
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 = a & b.Chars(i)
End If
Next
Output.Show(a.ToUpper)
13楼
lxl 发表于：2008/9/2 12:38:00
14楼
czy 发表于：2008/9/2 12:51:00
谢谢，受教了．
15楼
yuanbin 发表于：2008/9/2 13:13:00很有技巧哦，学习。
16楼
xipies 发表于：2008/9/2 13:34:00
弄不懂啊,代码写在哪儿都找不到,lxl兄收不收徒弟呀
17楼
smileboy 发表于：2008/9/2 13:43:00以下是引用xipies在2008-9-2 13:34:00的发言：
弄不懂啊,代码写在哪儿都找不到,lxl兄收不收徒弟呀
1、第二列：数据表--设计列--其他：计算代码
2、表属性：datacolchanged事件
18楼
xipies 发表于：2008/9/2 13:50:00以下是引用smileboy在2008-9-2 13:43:00的发言：
1、第二列：数据表--设计列--其他：计算代码
2、表属性：datacolchanged事件
谢谢,虽然还是看不太懂,不过感觉要洗洗脑子先,都是以前易表的思维啊,老习惯要革新,谢谢
另:这个是活生生的易表的刷新公式的例子啊,具有重大的参考价值
19楼
yuanbin 发表于：2008/9/2 14:38:00
20楼
擎天柱 发表于：2008/9/2 14:52:00楼上的是大名鼎鼎的破解高手yuanbin吗？