Dim txt As String = e.sender.Text
txt = "'%" & txt & "%'"
messagebox.show(txt)
Dim dr As DataRow
Dim po As Integer
dr = DataTables("成绩").Find("[考号] Like & text &") '从第一行开始查找
po = Tables("上分_table1").FindRow(dr)
If po >= 0 Then '如果找到
Tables("上分_table1").Position = po '选定
End If
请问表达合成哪里不对,谢谢,别见笑