1、我有一个表syk.dbf，其中有xm、xb、sfzh三个字段； 一个表单中有三个文本框text1、text2、text3和一个grid1
2、目的：在text1中输入姓名的拼音字头，在grid1中动态显示符合条件的记录，然后鼠标单击grid1中任一记录后，将该记录的姓名(即 xm)赋值给text2,身份证号(即 sfzh)赋值给text3。
3、例如：表中有记录赵一、赵仪、赵白二、赵尔，在text1中输入b时四个人都显示在grid1中，输入by时，白一、白仪显示在grid1中，这时如果点击grid1中的赵仪，则text2和text3中分别显示赵仪的姓名和身份证号。

期待高手的帮助，在这里先谢谢了！！

建一拼音（py）字段，将xm的首字母放在里面
自定义函数程序代码：
*---PY.PRG
PARAMETER cHZCHR
LOCAL cPYCHR,i,j,C,HZ
cPYCHR= " "
*SET COLLATE TO "PINYIN "     &&设置当前排序方式为拼音方式
PYCode= "八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗 "   &&从b开始每个拼音码的首字符
FOR i=1 TO LEN(cHZCHR)
    IF ASC(SUBSTR(cHZCHR,i,1))> 160   &&判断是否为汉字
       HZ=SUBSTR(cHZCHR,i,2)
       C= " "
       FOR j=1 TO 26
           IF SUBSTRC(HZ,1,1) <SUBSTRC(PYCode,j,1)   &&进行汉字比较
              C=CHR(96+j)     &&得到首位拼音码
              EXIT
           ENDIF
       ENDFOR
       cPYCHR=cPYCHR+UPPER(C)
       i=i+1
    ELSE
       cPYCHR=cPYCHR+UPPER(SUBSTR(cHZCHR,i,1))
    ENDIF
ENDFOR
RETURN cPYCHR

放在与数据表相同的文件夹内
USE 表
REPLACE ALL py WITH py(姓名)

要想精确查找，最好建个拼音数据表。

二楼的程序真可谓是经典。就是不清楚原作者是谁？

首先谢谢tlliqi的回复!这段代码我也搜到过,但我的就情况是:需要在不增加syk.dbf字段的情况下实现.
在网上搜到了三楼的方案,但我不知道怎么实现,请指教.谢谢!

我的机子是win7,没有winpy.mb和imegen.exe 没法做出拼音字典库,那位高手有这个做好的数据库,上传一份.
先谢谢了!

https://down.bccn.net/

tlliqi给的函数不能正确转"马"姓,例如:马克思,会转成"LKS" ,请能修这一错误.