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

学习。
大家对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)

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

下载信息  [文件大小：13.3 KB  下载次数：4]

点击浏览该文件:管理项目2.rar

谢谢，受教了．

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

下载信息  [文件大小：13.3 KB  下载次数：8]

点击浏览该文件:管理项目2.rar

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

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

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

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