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

Dim txt As String = e.sender.Text

If txt > ""

txt = "'%" & txt & "%'"

Dim dr As DataRow

Dim po As Integer

po = Tables("初中上分_table1").FindRow("[考号] Like" & txt)

If po >= 0 Then '如果找到

Tables("初中上分_table1").Position = po '选定

Else

Tables("初中上分_table1").Position = 0

MessageBox.show("该考号在所选学生范围内不存在")

e.sender.text = ""

End If

老师，上面代码是输入考号的几位定位学生记录，我想同样在这个文本框中如果输入表中的某个姓名的拼音首字母来定位学生怎样做？

主题：用姓名的拼音首字母定位记录