用姓名的拼音首字母定位记录 - 专家坐堂 - 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

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

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

table1表中有一列是姓名，我想输入姓名的拼音首字母来定位，拼音这里是什么意思，如何写？

Dim txt As String = e.sender.Text

If txt > ""

Dim reg2 As new System.Text.RegularExpressions.Regex("^[a-zA-Z]+$")

Dim reg1 As new System.Text.RegularExpressions.Regex("^[0-9]+$")

If reg1.Ismatch(txt) = True Then

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

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

ElseIf reg2.Ismatch(txt) = True Then

msgbox("字母")

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

Dim py As Integer

py = Tables("初中上分_table1").FindRow("getpinyin([姓名],1) Like" & txt)

If py >= 0 Then '如果找到

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

Else

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

MessageBox.show("该姓名学生不在所选范围内")

e.sender.text = ""

End If

Else

messagebox.show("不能输入字母和数字组合,请输入考号后4位数字或姓名拼音首字母")

e.Form.Controls("textbox6").text=""

e.Form.controls("textbox6").Select

End If

拼音如何做？

这样增加了数据量，我的想法是可不可以直接转换出来，不去增加一列

刘强的拼音首字母是lj 而我们正常都是lq，这如何办？

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