输入拼音首字母获取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入拼音首字母获取数据

共有2137人关注过本帖树形打印复制链接主题：输入拼音首字母获取数据

zyxhx

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

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

输入拼音首字母获取数据 发帖心情

Post By：2018/3/16 10:45:00 [显示全部帖子]

利用窗口设计-自定义录入界面之三，建立了一录入界面，可是只能输入姓名或者编码搜索。请问用代码如何直接输入姓名的拼音首字母搜索。

请问下面代码如何修改：

If e.Col.Name = "姓名" Then '如果编辑的是姓名列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("个人档案列表窗口_Table1")

If e.Text = "" Then '如果内容为空

tbl.Filter = "" '显示所有客户

Else '否则根据输入内容进行模糊筛选

Dim txt As String = "'%" & e.Text & "%'"

tbl.Filter = "健康档案号 Like " & txt & " Or 姓名 Like " & txt & " Or 身份证号码 Like " & txt & " Or 联系电话 Like " & txt

End If

zyxhx

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

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

Post By：2018/3/16 11:28:00 [显示全部帖子]

能不能不加入拼音列，直接用代码修改。

zyxhx

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

等级：小狐帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00

Post By：2018/3/16 13:46:00 [显示全部帖子]

如果在已有的姓名列表中插入拼音列后，利用以上代码，当在姓名列中输入时拼音列会自动生成，可是姓名列之前已有很多数据，如何快速生成拼音缩写，应该将代码写在哪个事件中？

主题：输入拼音首字母获取数据