求助，汉字转拼音缩写

sashachen

我做了个简单的数据库，其中2个表：人员资料 和 考勤表 。以姓名相关联。 人员资料 里以 姓名 为主键，考勤表会经常调用 人员资料里 的 姓名 ，现打出一两个字就可以从下拉列表里选取姓名，可是还是比较麻烦，能不能实现输入姓名的3个开头字母便筛选出相应姓名从下拉列表选取？如何实现？

sashachen

不错，2位给的函数很好用，再次感谢

sashachen

多谢2位老师，todaynew 给的就是我想要的

todaynew

我做了个简单的数据库，其中2个表：人员资料 和 考勤表 。以姓名相关联。 人员资料 里以 姓名 为主键，考勤表会经常调用 人员资料里 的 姓名 ，现打出一两个字就可以从下拉列表里选取姓名，可是还是比较麻烦，能不能 ...
sashachen 发表于 2009-12-9 23:49

参见《列表框行自适应》一文即可。

wmok

给你一个函数吧

'HZPY（String）:返回汉字拼音首字母函数：
Function HZPY(hzstr As String) As String
Dim p0 As String, c As String, str As String
Dim I As Integer, J As Integer
p0 = "吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
For I = 1 To Len(hzstr)
    c = "z"
    str = Mid(hzstr, I, 1)
    If Asc(str) > 0 Then
        c = str
    Else
        For J = 1 To 26
            If Mid(p0, J, 1) > str Then
                c = Chr(95 + J)
                Exit For
            End If
        Next
    End If
    HZPY = HZPY + c
Next
End Function